Sub Selenium_Chrome_Test_1()
With driver
.AddArgument "--incognito"
.AddArgument "disable-infobars"
.AddArgument "--user-data-dir=C:\Program Files\SeleniumBasic\User Data"
.Start "chrome"
End With
For Each lnk In driver.FindElementsByTag("a")
Debug.Print lnk.Text
Next
driver.Quit
End Sub
Sub Selenium_Chrome_Test_2()
Const WM_CLOSE = &H10
With driver
'
.AddArgument "disable-infobars"
.AddArgument "--user-data-dir=C:\Program Files\SeleniumBasic\User Data"
.Start "chrome"
End With
hwnd = FindWindow(vbNullString, "ページを復元しますか?")
If hwnd <> 0 Then
ret = SendMessageA(hwnd, WM_CLOSE, 0, 0)
End If
For Each lnk In driver.FindElementsByTag("a")
Debug.Print lnk.Text
Next
driver.Quit
End Sub