以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何禁止web控件弹出网页错误提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25060)
--  作者：Fotable
--  发布时间：2012/10/30 13:52:00
--  如何禁止web控件弹出网页错误提示
互联网上大部分网页都存在错误，但有点错误不影响网页的加载显示，如何禁止弹出这些提示框呢？
--  作者：lin_hailun
--  发布时间：2012/10/30 14:45:00
--  
 具体是什么样的提示框呢？截图看看。
--  作者：Fotable
--  发布时间：2012/10/30 14:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：2012-10-30_145624.jpg
图片点击可在新窗口打开查看
--  作者：lin_hailun
--  发布时间：2012/10/30 15:31:00
--  
 如果是Webbrowser控件，可以写代码屏蔽错误的，是哪个网址？

 资料 http://www.cnblogs.com/freeliver54/archive/2009/03/26/1422623.html
--  作者：Fotable
--  发布时间：2012/10/30 19:07:00
--  

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

 

这个网址
--  作者：lin_hailun
--  发布时间：2012/10/30 20:10:00
--  
 参考资料做个了小例子。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:屏蔽错误.table
--  作者：Fotable
--  发布时间：2012/10/30 20:16:00
--  

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

 

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

[此贴子已经被作者于2012-10-30 20:18:59编辑过]
--  作者：lin_hailun
--  发布时间：2012/10/30 20:56:00
--  
 呵呵，使得，网页没下载完的话，会是空对象。

 代码写成这样：

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
[此贴子已经被作者于2012-10-30 20:55:48编辑过]