update,

task1/task1-ticket1/_ref/Excel/Examples/usage_window.bas

@@ -0,0 +1,86 @@
+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