方法一：
控制webbrowser不弹出IE窗口的方法是在控件的NewWindow2事件里面添加如下代码:
Set ppDisp = WebBrowserTemp.Object ' WebBrowserTemp为自己在窗体中另外添加的Webbrowser控件
如果禁止弹出窗口,不做处理,则在NewWindow2事件里添加如下代码即可:
Cancel = True
方法二：
利用OnDownloadBegin和OnDownloadComplete
以CHtmlView为例，弹出的广告窗口都是通过CHtmlView::OnNewWindow2( LPDISPATCH* ppDisp, BOOL* Cancel );打开的。
关于OnNewWindow2不想多说，只说说这第2个参数 BOOL* Cancel
当Cancel = false的时候就不能打开新窗口了，如果你的CHtmlView的该参数一直为FALSE那么一切弹出窗口都不能打开，广告窗口自然就没了。
那~~~要是总FALSE岂不是正常网页也无法浏览了？
别忙，接下来要做的就是在适当的时候让这个参数返回FALSE。
抛开CHtmlView我们回头来看看IE下载网页弹出广告窗口的过程：
OnDownloadBegin ---->发现window.open等Js或者vbs ---->OnNewWindow2 ---->OnDownloadComplete
了解了上述过程之后......什么时候让OnNewWindow2的第2个参数为FALSE你就清楚了吧！
下面跟我实战。
给你的从CHtmlView派生而来的CNoPopHtmlView加一个成员变量BOOL m_bPop;
在构造函数里给m_bPop初始化为：m_bPop = TRUE;
重载OnDownloadBegin虚函数，在其中加入：m_bPop = FALSE;
重载OnDownloadComplete虚函数，在其中加入：m_bPop = TRUE;
重载OnNewWindow2虚函数，在其中加入：
Cancel = m_bPop;
这样CNoPopHtmlView将不在打开广告窗口，关键在于了解IE的下载、弹出窗口的过程。（本文的方法同样对CWebBrowser2适用、不论你是用VC还是Delphi都有效，关键在于了解IE下载、弹出窗口的过程）
上面说的是在自编浏览器中过滤广告窗口。
其实你完全可以利用BHO（Browser Helper Object）写一个针对IE的广告窗口过滤器。
在BHO里你利用IObjectWithSiteImpl::SetSite获得IWebBrowser2指针，然后利用Invoke处理OnDownloadBegin/OnDownloadComplete/OnNewWindow2等事件就可以，模式同上。
方法三：
设属性 silent 为 True
如何在vb中控制webbrowser的弹出窗口
控制webbrowser不弹出IE窗口的方法是在控件的NewWindow2事件里面添加如下代码:Set ppDisp = WebBrowserTemp.Object ' WebBrowserTemp为自己在窗体中另外添加的Webbrowser控件 如果禁止弹出窗口,不做处理,则在NewWindow2事件里添加如下代码即可:Cancel = True 方法二：利用OnDownloadBegin和OnDownloadComplete 以...
VB WebBrowser 阻止弹出对话框
解决方法就是在NavigateComplete2事件中加入代码 pDisp.Document.parentWindow.execScript "window.alert=null;" '不允许弹出警告对话框 pDisp.Document.parentWindow.execScript "window.confirm=null;" '不允许弹出询问对话框 pDisp.Document.parentWindow.execScript "window.showModalDialog=null;" '...
VB 的webbrowser怎么拦截或禁止下载对话框弹出来呢??
再加一个webbrowser,可以把第一个的弹出内容显示在第二个webbrowser里,然后把第2个webbrowser隐藏掉,就实现了
vb WebBrowser 拦截弹窗
把WebBrowser1设为控件数组（就是把它的Index属性设为0），然后输入以下代码：Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)Load WebBrowser1(WebBrowser1.UBound + 1)WebBrowser1(WebBrowser1.UBound).Move WebBrowser1(WebBrowser1.UBound - 1).Lef...
VB,webbrowser,如何禁止网页弹窗?
假设VB中引用的WEBBROWSER对象名称为 wb1 在WB1的响应中加入: '以下是重定义这些弹出窗口的函数，对于某些网页用自己写的函数弹出无效，但是基本上可以在大部分网页上有效．Private Sub wb1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Set oDoc1 = pDisp.DocumentoDoc1.parent...
VB 有没有办法阻止网页链接弹出窗口?
= frmWB.WebBrowser1.Object frmWB.Visible = True 'Cancel = True End Sub 以上事件会新弹出一个WebBrowser1浏览器，你测试下就知道了。如果在其中加入 frmWB.Visible = false unload frmWB 就可以看不到弹出窗体了。如果弹出的是alert、确认窗口的话，用其他方法也可以屏蔽的，在此不多言。
vb.net 禁止webbrowser中的ALERT等JS对话框
s += "return true;";s += "}";s += "function alert() {}";win.execScript(s, "javascript");这样就可以解决在WebBrowser中因有消息窗口弹出而影响程序运行过程的问题。稍加改动还可以控制页面跳转，比如原来的alert()方法是弹出一个提示信息，现在修改后的代码不会有任何操作。如果你在修改...
vb怎样自动关闭网页弹出的提示窗口
方法一：WebBrowser1.Silent = True 方法二：Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) rem 如果还有其他类型的弹窗，自己加代码 pDisp.Document.parentWindow.execScript "window.alert=null;" pDisp.Document.parentWindow.execScript "window.confirm...
用VB做程序打开网页,如何阻止弹窗和挂马
webbrowser控件silent属性设置为true 则不会弹出任何提示窗口 对于之显示文字内容，只有通过其他控件，如xmlhttp或inet控件抓取网页源代码分析过滤 图片、恶意代码，再通过webbrowser来显示。参考资料：我的双流网 http:\/\/510122.COM
vb程序WebBrowser1网页显示,连接论坛时弹出当前脚本错误,连接网站没事...
在程序中加入这句：webbrowser.silent=true
