25 lines
674 B
QBasic
25 lines
674 B
QBasic
Attribute VB_Name = "usage_frame"
|
|
Private Assert As New Selenium.Assert
|
|
Private Keys As New Selenium.Keys
|
|
|
|
|
|
Private Sub Handle_Frames()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "http://the-internet.herokuapp.com/nested_frames"
|
|
|
|
'switch to a child frame
|
|
driver.SwitchToFrame "frame-top"
|
|
Assert.Equals 3, driver.FindElementsByTag("frame").count
|
|
|
|
'switch to child frame of "frame-top"
|
|
driver.SwitchToFrame "frame-middle"
|
|
Assert.Equals "MIDDLE", driver.FindElementById("content").Text
|
|
|
|
'switch to the default content
|
|
driver.SwitchToDefaultContent
|
|
Assert.Equals 2, driver.FindElementsByTag("frame").count
|
|
|
|
'Stop the browser
|
|
driver.Quit
|
|
End Sub
|