update,
This commit is contained in:
63
task1/task1-ticket1/_ref/Excel/Examples/browsers_all.bas
Normal file
63
task1/task1-ticket1/_ref/Excel/Examples/browsers_all.bas
Normal file
@@ -0,0 +1,63 @@
|
||||
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
|
||||
|
Reference in New Issue
Block a user