主题：如何禁止web控件弹出网页错误提示

互联网上大部分网页都存在错误，但有点错误不影响网页的加载显示，如何禁止弹出这些提示框呢？

 具体是什么样的提示框呢？截图看看。

此主题相关图片如下：2012-10-30_145624.jpg

 如果是Webbrowser控件，可以写代码屏蔽错误的，是哪个网址？

 资料 http://www.cnblogs.com/freeliver54/archive/2009/03/26/1422623.html

http://www.meimingteng.com/BaiduApp/CeMingZi.aspx?Params=zDBYcgFGl2Cmw0wXHZRxdmgC%2bJJji7ljJbe%2f5SRUcXOZuKB1%2bNXXFRXsnkmLdUhFJAyrFqmQPRJd3NDiWrvJwABPDV%2bITseYzB%2b8Zl85r2jZtcnoG5ZRbe4SOizagNdsRP5j3ssEq9e8xBw5H%2fKF31JDuPKothR0ZjmJHjnULgUeH%2fXvf%2fjNfqPc7yN4vdRtifjttUbUynJBfqBAGLxnErvIRWMwyt5LqymtLHqffrHP%2bknmdMnmz6VMLoOKtQVsPiGFlFM832Yv8SnJJfzIkZCeWkT0OYk%2b8ZPu3bemAqEeUjIrM0y2AxzC8MvwpWZh0LKZGgnEYc94NjneP18MtnWageZ8iFWHuRIC4pztr0xIK2P5u5CEwjeNqll29I2sJliu4RvlO14jN9AjiQilWXc5E%2fwCBsA9cWA89Zlf4%2fGpdBofMSPrsPGT7t23pgKh263sKQ4zAOsyLLL4kySFVTeNqll29I2s2alpkQqyk8ZV6e37Uob5kMLL%2bTpbvZikduKsTrAtYwH8LbGv7TEbr8i0OImSwpjZqaRJRgof%2fzEnuMPU9Ve0RLLG5oqJdwWXa6i%2f6fsLfLzA3Yk0qQe5ZDsjhqxemZr%2b%2fCUL7zfDy5ijvSSWG5JyNptvBBTnLc3JeaexyPH5KTw3japZdvSNrLpWHh7BUFzZQKRGLHdTKcsTT1MT6C5A6ur8ZrAUGL8Ot%2fJUC8cMuJHN3hklCBo%2b98Hg7KefjB0B&Name=%e8%b4%ba%e9%a3%9e&StrokeCombination=12-9+(0)&AllowedWuXing=%e7%81%ab&NamingMothod=4&WuXingScore=0&ZodiacScore=0.5&Shown=true&ZN=%e9%be%99&BDF=1&canvas_pos=platform

 

这个网址

 参考资料做个了小例子。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:屏蔽错误.table

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Navigate("http://www.meimingteng.com/BaiduApp/CeMingZi.aspx")
AddHandler web.Document.Window.[Error], AddressOf Window_Error

 

谢谢了。好像第一次打开窗口会弹错

 呵呵，使得，网页没下载完的话，会是空对象。

 代码写成这样：

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl

web.Navigate("http://www.meimingteng.com/BaiduApp/CeMingZi.aspx?Params=zDBYcgFGl2Cmw0wXHZRxdmgC%2bJJji7ljJbe%2f5SRUcXOZuKB1%2bNXXFRXsnkmLdUhFJAyrFqmQPRJd3NDiWrvJwABPDV%2bITseYzB%2b8Zl85r2jZtcnoG5ZRbe4SOizagNdsRP5j3ssEq9e8xBw5H%2fKF31JDuPKothR0ZjmJHjnULgUeH%2fXvf%2fjNfqPc7yN4vdRtifjttUbUynJBfqBAGLxnErvIRWMwyt5LqymtLHqffrHP%2bknmdMnmz6VMLoOKtQVsPiGFlFM832Yv8SnJJfzIkZCeWkT0OYk%2b8ZPu3bemAqEeUjIrM0y2AxzC8MvwpWZh0LKZGgnEYc94NjneP18MtnWageZ8iFWHuRIC4pztr0xIK2P5u5CEwjeNqll29I2sJliu4RvlO14jN9AjiQilWXc5E%2fwCBsA9cWA89Zlf4%2fGpdBofMSPrsPGT7t23pgKh263sKQ4zAOsyLLL4kySFVTeNqll29I2s2alpkQqyk8ZV6e37Uob5kMLL%2bTpbvZikduKsTrAtYwH8LbGv7TEbr8i0OImSwpjZqaRJRgof%2fzEnuMPU9Ve0RLLG5oqJdwWXa6i%2f6fsLfLzA3Yk0qQe5ZDsjhqxemZr%2b%2fCUL7zfDy5ijvSSWG5JyNptvBBTnLc3JeaexyPH5KTw3japZdvSNrLpWHh7BUFzZQKRGLHdTKcsTT1MT6C5A6ur8ZrAUGL8Ot%2fJUC8cMuJHN3hklCBo%2b98Hg7KefjB0B&Name=%e8%b4%ba%e9%a3%9e&StrokeCombination=12-9+(0)&AllowedWuXing=%e7%81%ab&NamingMothod=4&WuXingScore=0&ZodiacScore=0.5&Shown=true&ZN=%e9%be%99&BDF=1&canvas_pos=platform")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop
AddHandler web.Document.Window.Error, AddressOf Window_Error