Question

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

是网页的

还是不行

Answer 1

目前只有弹出后自己关闭它。。 

补充：WebBrowser 是一个 .NET 控件类，在 .NET Framework 2.0 版中新增。WebBrowser 类使用户可以在窗体中导航网页。

Answer 2

试过了，网上说的其他办法都不行，还是弹出后自动关闭它最好，尤其是网页上提交成功后的页面，根本就判断不到。。
经过测试，目前只有弹出后自己关闭它。。
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

Answer 3

是网页弹出来吗