34 lines
879 B
QBasic
34 lines
879 B
QBasic
Attribute VB_Name = "usage_alert"
|
|
Private Assert As New Selenium.Assert
|
|
|
|
|
|
Private Sub Handle_Alerts()
|
|
Dim driver As New ChromeDriver
|
|
driver.SetCapability "unexpectedAlertBehaviour", "ignore"
|
|
driver.Get "http://the-internet.herokuapp.com/javascript_alerts"
|
|
|
|
' Display alert
|
|
driver.FindElementByCss("#content li:nth-child(2) button").Click
|
|
|
|
' Set the context on the alert dialog
|
|
Set dlg = driver.SwitchToAlert(Raise:=False)
|
|
|
|
' Assert an alert is present and the message
|
|
Assert.False dlg Is Nothing, "No alert present!"
|
|
Assert.Equals "I am a JS Confirm", dlg.Text
|
|
|
|
' Close alert
|
|
dlg.Accept
|
|
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
'Returns true if an alert is present, false otherwise
|
|
' driver: web driver
|
|
Private Function IsDialogPresent(driver As WebDriver) As Boolean
|
|
On Error Resume Next
|
|
T = driver.title
|
|
IsDialogPresent = (26 = Err.Number)
|
|
End Function
|