我在VS 2012中使用Visual Basic。这是我正在尝试设置的类的pastebin。 PasteBin 我在这里跟随MSDN。 MSDN
有问题的代码的主要部分是:
Dim SenderBrowser As WebCommander = CType(sender, WebCommander)
If SenderBrowser.Document IsNot Nothing AndAlso SenderBrowser.Document.Window IsNot Nothing Then
AddHandler SenderBrowser.Document.Window.Error, AddressOf WebCommander_SuppressErrorDialogs
If SenderBrowser.Document.Window.Frames.Count > 0 Then
For Each FrameSource As HtmlWindow In SenderBrowser.Document.Window.Frames
AddHandler FrameSource.Document.Window.Error, AddressOf WebCommander_SuppressErrorDialogs
Next
End If
End If
和这个
Private Sub WebCommander_SuppressErrorDialogs(ByVal sender As Object, ByVal e As HtmlElementErrorEventArgs)
e.Handled = True
End Sub
如果我把这个
放在SuppressErrorDialogs Sub中 MsgBox(e.Url.ToString & " " & e.Handled.ToString)
然后我得到一个带有URL和True的消息框,但我仍然得到脚本错误,说明是或否以允许脚本继续运行。有什么我做错了吗?
我尝试了几种组合但没有成功。而且要注意,我不能简单地将SenderBrowser.SuppressScriptErrors设置为True,因为我仍然需要SSL和登录窗口。我正在测试警报是否出现的方式是使用onclick="brokefun();"
不存在的JS函数,但警报也会以其他方式出现。我无法控制服务器代码。