30 lines
1.6 KiB
Plaintext
30 lines
1.6 KiB
Plaintext
|
|
' ---------------------------------------------------------------------------------------
|
|
' This script works with a browser installed on another station.
|
|
'
|
|
' Selenium Standalone Server:
|
|
' http://www.seleniumhq.org/download/
|
|
'
|
|
' Command line to start the server:
|
|
' java -jar selenium-server-standalone-2.47.1.jar
|
|
'
|
|
' ---------------------------------------------------------------------------------------
|
|
|
|
Const URI_SERVER = "http://127.0.0.1:4444/wd/hub"
|
|
|
|
Class Script
|
|
Dim driver
|
|
|
|
Sub Class_Initialize
|
|
Set driver = CreateObject("Selenium.WebDriver")
|
|
driver.StartRemotely URI_SERVER, "chrome"
|
|
driver.Wait 1000
|
|
End Sub
|
|
|
|
Sub Class_Terminate
|
|
driver.Quit 'Stops the browser
|
|
End Sub
|
|
End Class
|
|
|
|
Set s = New Script
|