vb2008 webbrowser 如何禁止 脚本错误提示 及弹出对话框

1.在form 初始化时将webbrowser控件的

ScriptErrorsSuppressed = True

（false调试模式，允许脚本错误提示），也可以在其他合适的事件中设置。

2.写个子过程

Private Sub Window_Error(ByVal sender As Object, _ ByVal e As HtmlElementErrorEventArgs) ' 忽略错误并禁止弹出对话框 e.Handled = True End Sub
3.在webbrowser控件的browser_DocumentCompleted事件中调用上述子过程，代码如下：

(ByVal sender As Object, _ ByVal e As WebBrowserDocumentCompletedEventArgs) AddHandler CType(sender, WebBrowser).Document.Window.Error, _ AddressOf Window_Error End Sub

注：browser为webbrowser控件名，比如webbrowser1之类的。

 

http://blog.sina.com.cn/s/blog_40d47c890100n0gn.html

 

 

其它方法：

http://zhidao.baidu.com/question/124054234.html?fr=qrl&cid=867&index=1&fr2=query

WebBrowser1.Silent = True

 

最简单的是这样解决

http://zhidao.baidu.com/question/70363713.html?fr=qrl&cid=867&index=1

 

最佳答案

试过了，网上说的其他办法都不行，还是弹出后自动关闭它最好，尤其是网页上提交成功后的页面，根本就判断不到。。 

经过测试，目前只有弹出后自己关闭它。。 

Private Sub Timer1_Timer() 
iii = iii + 1 
If iii >= 0 Then 
Dim dlghwnd As Long 
Dim buttonhwnd As Long 
dlghwnd = FindWindow("#32770", "Microsoft Internet Explorer") 
buttonhwnd = GetDlgItem(dlghwnd, 2) '其中的2，用spy++获得 
SendMessage buttonhwnd, BM_CLICK, 0&, ByVal 0& 
End If 
End Sub