真真好用vb6 webbrowser 禁示弹出js错误对话框的代码

Private Sub WebBrowser1_DownloadBegin()
    WebBrowser1.Silent = True
End Sub

SHDocVw.dll

在COM时代我们使用的WebBrowser控件是SHDocVw.dll。屏蔽错误信息的方法很简单使用下面的一句就可以搞定。
WebBrowser1.Silent = true;

vb用webbrowser来浏览网页时，弹出网页提示当前脚本发生错误 处理方法如上

下面是别人的方法，我没试过

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
     Dim oDoc1 As HTMLDocument
     Set oDoc1 = pDisp.Document
     oDoc1.parentWindow.execScript "function alert(){return;}"
     oDoc1.parentWindow.execScript "function confirm(){return;}"
     oDoc1.parentWindow.execScript "function showModalDialog(){return;}"
End Sub

上一个：vb6 里面MessageBox支持的系统提示图标完整列表
下一个：用VB 6.0编写网页定时自动刷新器的源代码