VB WebBrowser 阻止弹出对话框

方法之一：组件。
组件最能从根本解决问题了，但基本都属于C++, Delphi编写的。我推荐的是vbMHWB.dll(VC)的COM，在Codeproject上有下载，链接地址http://www.codeproject.com/atl/vbmhwb.asp
附带有VC组件源码及VB DEMO和VC DEMO。
此控件功能比较强大，继承了wbbrowser的方法事件之外还有一些扩展的事件，比如DocumentCompleteWBEx事件、OnFileDLResponse事件等，还可以设置下载参数的Flag阻止图片或Video等，如果你是做投票机的，还有OnPost相关的事件OnResponse，很方便的查询出Post之后的结果。
阻止alert对话框的使用方法，在Show_Message事件里将布尔值ShowMsg设为false即可。

方法之二：Webbrowser本身变通的方法
如果你熟悉DHTML编程，应该知道IE中DHTML的属性和方法可以重写。当然alert,confirm, showModalDialog也不例外。
解决方法就是在NavigateComplete2事件中加入代码

pDisp.Document.parentWindow.execScript "window.alert=null;" '不允许弹出警告对话框
pDisp.Document.parentWindow.execScript "window.confirm=null;" '不允许弹出询问对话框 pDisp.Document.parentWindow.execScript "window.showModalDialog=null;" '不允许弹出普通网页对话框
注意：这是制标不制本的，只是在大多数时候有效，失效的时候比如：当提效数据之后返回响应中有alert，那么这个事件是忽略的。

方法之三：VB中加入线程，监视窗口是否有alert confirm等，如果有，则发送消息发闭该窗口。
主要的API也就是FindWindow以及SendMessage等，代码略过了，因为加入线程还是有几种方法的，随个人喜欢了，这个话题另开一个Topic都说不完的。