42 lines
1004 B
QBasic
42 lines
1004 B
QBasic
Attribute VB_Name = "Helloworld"
|
|
Option Explicit
|
|
|
|
Dim driver As New ChromeDriver
|
|
Dim rowc, cc, columnC As Integer
|
|
|
|
Sub helloworld()
|
|
On Error GoTo eh
|
|
|
|
Config.init
|
|
|
|
driver.SetBinary ChromiumBinaryPath
|
|
|
|
driver.Start
|
|
driver.AddArgument "--disable-blink-features=AutomationControlled"
|
|
|
|
|
|
' driver.execute_script("Object.defineProperty(navigator, 'webdriver', {get: () => undefined})")
|
|
' driver.ExecuteScript "alert('helloworld')"
|
|
' driver.ExecuteScript "Object.defineProperty(navigator, 'webdriver', {get: () => undefined})"
|
|
|
|
|
|
' driver.Get "http://localhost:8080/navigator_webdriver_test.html"
|
|
' https://intoli.com/blog/not-possible-to-block-chrome-headless/chrome-headless-test.html
|
|
' driver.Get "https://intoli.com/blog/not-possible-to-block-chrome-headless/chrome-headless-test.html"
|
|
|
|
driver.Get "http://www.aastocks.com"
|
|
|
|
|
|
Application.Wait Now + TimeValue("00:00:5")
|
|
|
|
Done:
|
|
debug.print "hello done"
|
|
driver.quit
|
|
|
|
exit sub
|
|
|
|
eh:
|
|
debug.print "hello error"
|
|
|
|
End Sub
|