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

ScriptErro<a href="/tag/RSS/" target="_blank" class="keywords">RSS</a>uppressed = True

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

2.写个子过程

Private Sub Window_Error(ByVal sender As Object,_ ByVal e As HtmlElementErrorEventArgs) ' 忽略<a href="/tag/cuowu/" target="_blank" class="keywords">错误</a>并<a href="/tag/jinzhi/" target="_blank" class="keywords">禁止</a>弹出对话框 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