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

Posted 2023-04-03

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

参考技术A VB6.0的webbrowser控件如何点击网页的alert弹出窗口？网页的弹出窗口脚本是如果是程序内嵌了 webbrowser 然后弹出alert 基本就没办法了.. 因为VB的所有本回答被提问者采纳 参考技术B 在W_NavigateComplete2事件里加上重载函数就行
pDisp.Document.parentWindow.execScript "window.open=null;"

vb的webbrowser控件问题

如何放大/缩小网页的大小，让它适应webbrowser的大小，也就是webbrowser要能完整显示网页内容，谢谢

参考技术A webbrowser缩放网页的代码是
WebBrowser1.Document.body.Style.Zoom =50%
主要的是你要能取得当前网页的宽度才行本回答被提问者采纳 参考技术B 呵呵。这等于问如何让脚适合鞋子的大小？是不是啊。朋友？
不过，我还是希望你能成功。