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