webbrowser自动弹出新窗口的有关问题
webbrowser自动弹出新窗口的问题
1、webbrowser自动弹出新窗口有哪几种方法？？
2、在newwindow2事件中是不是都可以拦截到？（显然不行，因为我拦截失败了）
我用vb自己做的浏览器，关闭页面的时候我是这样考虑的：
1、with wb1.document
.open
.writeln "<html><body></body></html>'清空页面内容
end with
2、unload wb1
按照我“设计”的关闭思路，页面在关闭时应该不会再弹出其它窗口了，可是我失败了，而且在newwindow2事件中监测不到任何动作。
各位大侠，应该怎样才能“杜绝”页面关闭时弹出其它窗口？？？？？？？
------解决方案--------------------
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True
End Sub
上面的再试试吧，再不行的话也没其他办法了。
------解决方案--------------------
当然不是都可以阻止的，我早就发现很多这种情况了
csdn上的人也就是那几段代码发来发去，估计也都是复制别人的，没什么人深入研究的，自己google吧
1、webbrowser自动弹出新窗口有哪几种方法？？
2、在newwindow2事件中是不是都可以拦截到？（显然不行，因为我拦截失败了）
我用vb自己做的浏览器，关闭页面的时候我是这样考虑的：
1、with wb1.document
.open
.writeln "<html><body></body></html>'清空页面内容
end with
2、unload wb1
按照我“设计”的关闭思路，页面在关闭时应该不会再弹出其它窗口了，可是我失败了，而且在newwindow2事件中监测不到任何动作。
各位大侠，应该怎样才能“杜绝”页面关闭时弹出其它窗口？？？？？？？
------解决方案--------------------
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True
End Sub
上面的再试试吧，再不行的话也没其他办法了。
------解决方案--------------------
当然不是都可以阻止的，我早就发现很多这种情况了
csdn上的人也就是那几段代码发来发去，估计也都是复制别人的，没什么人深入研究的，自己google吧