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
 

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!