VB，webbrowser,如何禁止网页弹窗？
3个回答
2015-11-10 · 知道合伙人软件行家
yfcp
知道合伙人软件行家
采纳数：1748
获赞数：5543
有多年网站建设相关工作经验。熟悉ASP、ASP.net、VB、JavaScript、HTML等语言和CSS、Ajax等相关技术。
向TA提问 私信TA
关注
![]()
展开全部
假设VB中引用的WEBBROWSER对象名称为 wb1
在WB1的响应中加入: '以下是重定义这些弹出窗口的函数，对于某些网页用自己写的函数弹出无效，但是基本上可以在大部分网页上有效．
Private Sub wb1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set oDoc1 = pDisp.Document
oDoc1.parentWindow.execScript "function alert(){return;}"
oDoc1.parentWindow.execScript "function confirm(){return;}"
oDoc1.parentWindow.execScript "function showModalDialog(){return;}"
oDoc1.parentWindow.execScript "function close(){return;}"
End Sub
窗体的load中加入 wb1.Silent = True '防止弹出JS脚本出错代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
VB6.0的webbrowser控件如何点击网页的alert弹出窗口？网页的弹出窗口脚本是如果是程序内嵌了 webbrowser 然后弹出alert 基本就没办法了.. 因为VB的所有
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
在W_NavigateComplete2事件里加上重载函数就行
pDisp.Document.parentWindow.execScript "window.open=null;"
pDisp.Document.parentWindow.execScript "window.open=null;"
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
