收藏 使用webbrowser控件时，如何屏蔽网站弹出的对话框

显示网页前web1.silence=true

需要自定义的：
如果是脚本错误对话框，参考 How to handle script errors as a WebBrowser control host  http://support.microsoft.com/default.aspx?scid=kb;en-us;261003

如果是消息对话框，那么可以实现IDocHostShowUI::ShowMessage来自定义显示方式
参考
http://msdn.microsoft.com/workshop/browser/hosting/reference/ifaces/idochostshowui/showmessage.asp
http://msdn.microsoft.com/workshop/browser/hosting/wbcustomization.asp
如果是安全对话框，需要使用自定义的Internet安全区域管理器，参考http://msdn.microsoft.com/workshop/security/szone/overview/overview.asp#Creating_a_Customize

如果是窗口关闭提示对话框，可以捕获DWebBrowserEvents2::WindowClosing事件，取消默认的处理并且显示自己的窗口关闭提示对话框

Private Sub For_Load()
        WebBrowser1.Navigate "http://www.sina.com.cn"
End Sub


Private Sub WebBroser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
        Cancel = True
End Sub