64 lines
1.2 KiB
QBasic
64 lines
1.2 KiB
QBasic
Attribute VB_Name = "browsers_all"
|
|
' This module contains examples on how to work
|
|
' with a specific browser.
|
|
'
|
|
|
|
|
|
Private Sub Use_Chrome()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Use_Firefox()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Use_Opera()
|
|
Dim driver As New OperaDriver
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Use_InternetExplorer()
|
|
Dim driver As New IEDriver
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Use_PhantomJS()
|
|
Dim driver As New PhantomJSDriver
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Use_FirefoxLight()
|
|
' Firefox Light:
|
|
' http://sourceforge.net/projects/lightfirefox/
|
|
|
|
Dim driver As New ChromeDriver
|
|
driver.SetBinary "C:\...\light.exe"
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Use_CEF()
|
|
' Chromium Embedded Framework:
|
|
' https://cefbuilds.com
|
|
|
|
Dim driver As New ChromeDriver
|
|
driver.SetBinary "C:\...\cefclient.exe"
|
|
driver.AddArgument "url=data:,"
|
|
driver.Get "https://www.google.co.uk"
|
|
driver.Quit
|
|
End Sub
|
|
|