Dim dialog As SeleniumBasic.IAlert
   Set dialog = WD.SwitchTo.Alert
   If dialog Is Nothing Then
    Debug.Print "没出现弹窗"
    Debug.Print dialog.text
    dialog.Accept
   End If

运行程序后,在立即窗口看到弹出的文字: