87 lines
1.8 KiB
QBasic
87 lines
1.8 KiB
QBasic
Attribute VB_Name = "usage_window"
|
|
Private Assert As New Selenium.Assert
|
|
|
|
Private Sub Windows_Switch()
|
|
Dim driver As New ChromeDriver
|
|
|
|
driver.Get "http://the-internet.herokuapp.com/windows"
|
|
driver.FindElementByCss(".example a").Click
|
|
|
|
'Switch to a new window
|
|
driver.SwitchToNextWindow
|
|
Assert.Equals "New Window", driver.title
|
|
|
|
'Switch to the previous activated window
|
|
driver.SwitchToPreviousWindow
|
|
Assert.NotEquals "New Window", driver.title
|
|
|
|
'Stop the browser
|
|
driver.Quit
|
|
End Sub
|
|
|
|
Private Sub Window_Maximize()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "about:blank"
|
|
driver.Window.Maximize
|
|
|
|
Debug.Assert 0
|
|
driver.Quit
|
|
End Sub
|
|
|
|
Private Sub Window_SetSize()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "about:blank"
|
|
driver.Window.SetSize 800, 600
|
|
|
|
Debug.Assert 0
|
|
driver.Quit
|
|
End Sub
|
|
|
|
Private Sub Windows_Close()
|
|
Dim driver As New ChromeDriver
|
|
|
|
driver.Get "http://the-internet.herokuapp.com/windows"
|
|
|
|
' Save the main window
|
|
Set winMain = driver.Window
|
|
|
|
' Open a new window
|
|
driver.FindElementByCss(".example a").Click
|
|
|
|
' Close all the newly opened windows
|
|
For Each win In driver.Windows
|
|
If Not win.Equals(winMain) Then win.Close
|
|
Next
|
|
winMain.Activate
|
|
|
|
'Stop the browser
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Windows_Open_New_Tab()
|
|
Dim driver As New ChromeDriver, Keys As New Keys
|
|
|
|
driver.Get "http://the-internet.herokuapp.com/windows"
|
|
|
|
' Holds the control key while clicking
|
|
driver.FindElementByLinkText("Dropdown").Click Keys.Control
|
|
driver.SwitchToNextWindow
|
|
|
|
'Stop the browser
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Windows_Open_New_One2()
|
|
Dim driver As New ChromeDriver, Keys As New Keys
|
|
|
|
driver.Get "about:blank"
|
|
|
|
driver.ExecuteScript "window.open(arguments[0])", "http://www.google.com/"
|
|
driver.SwitchToNextWindow
|
|
|
|
'Stop the browser
|
|
driver.Quit
|
|
End Sub
|