VB WebBrowser1 怎么防止网页中的弹出窗口
在VB中当我用WebBrowser打开网页的时候，如果网页中有
<script>alert('弹出窗口 ')</script>
代码的时候，在VB中怎么将其关掉或者不出现
我在
WebBrowser1.Navigate "http://192.168.0.2"
的后面跟了一个
SendKeys "{ESC}"
有时候可以，有时候不行
有没有更好的方法？
webbrowser1.Silent = True
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel = False
End Sub
是网页的
还是不行
目前只有弹出后自己关闭它。。
补充：WebBrowser 是一个 .NET 控件类，在 .NET Framework 2.0 版中新增。WebBrowser 类使用户可以在窗体中导航网页。
温馨提示：内容为网友见解，仅供参考
第1个回答 推荐于2016-11-29
试过了，网上说的其他办法都不行，还是弹出后自动关闭它最好，尤其是网页上提交成功后的页面，根本就判断不到。。
经过测试，目前只有弹出后自己关闭它。。
Private Sub Timer1_Timer()
iii = iii + 1
If iii >= 0 Then
Dim dlghwnd As Long
Dim buttonhwnd As Long
dlghwnd = FindWindow("#32770", "Microsoft Internet Explorer")
buttonhwnd = GetDlgItem(dlghwnd, 2) '其中的2，用spy++获得
SendMessage buttonhwnd, BM_CLICK, 0&, ByVal 0&
End If
End Sub本回答被提问者采纳
经过测试，目前只有弹出后自己关闭它。。
Private Sub Timer1_Timer()
iii = iii + 1
If iii >= 0 Then
Dim dlghwnd As Long
Dim buttonhwnd As Long
dlghwnd = FindWindow("#32770", "Microsoft Internet Explorer")
buttonhwnd = GetDlgItem(dlghwnd, 2) '其中的2，用spy++获得
SendMessage buttonhwnd, BM_CLICK, 0&, ByVal 0&
End If
End Sub本回答被提问者采纳
第2个回答 2008-10-03
是网页弹出来吗
相似回答
