vb WebBrowser 拦截弹窗

答案:3 悬赏:30 手机版

解决时间 2021-02-11 22:47

提问者网友：记得曾经
2021-02-11 07:40

vb WebBrowser 拦截弹窗
就是让弹窗在自己的窗口里打开我想搞个多窗口的浏览器
让弹窗在自己的vb里打开不让他打开 ie

最佳答案

五星知识达人网友：逃夭
2021-02-11 08:42

把WebBrowser1设为控件数组（就是把它的Index属性设为0），然后输入以下代码：

Private Sub WebBrowser1_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
Load WebBrowser1(WebBrowser1.UBound + 1)
WebBrowser1(WebBrowser1.UBound).Move WebBrowser1(WebBrowser1.UBound - 1).Left + 300, WebBrowser1(WebBrowser1.UBound - 1).Top + 300
WebBrowser1(WebBrowser1.UBound).Visible = True
WebBrowser1(WebBrowser1.UBound).ZOrder
Set ppDisp = WebBrowser1(WebBrowser1.UBound).Object
End Sub

以上只是示例，具体新的WebBrowser窗口的显示位置你可以自己修改

全部回答

1楼网友：猎心人
2021-02-11 09:40

可以写一个独立的程序，专门遍历所有窗口，遇到弹出的广告窗口就sendmessage关掉窗口

2楼网友：平生事
2021-02-11 09:11

'NewWindow事件: Dim i As New Form1 '新建一个窗口。 Dim newUrl As Uri = New Uri(sender.Document.ActiveElement.GetAttribute("href")) i.WebBrowser1.Url=newUri i.Show() e.Canenl=True '这是VB.Net的写法，VB应该也没什么不同。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息