VB，webbrowser,如何禁止网页弹窗？

2024-12-04 11:12:23

推荐回答（3个）

回答1：

假设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脚本出错代码

回答2：

VB6.0的webbrowser控件如何点击网页的alert弹出窗口？网页的弹出窗口脚本是如果是程序内嵌了 webbrowser 然后弹出alert 基本就没办法了.. 因为VB的所有

回答3：

在W_NavigateComplete2事件里加上重载函数就行
pDisp.Document.parentWindow.execScript "window.open=null;"