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

如题所述

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