关于vbs WebBrowser导航问题
导读：收集整理的这篇文章主要介绍了关于vbs WebBrowser导航问题，觉得挺不错的，现在分享给大家，也给大家做个参考。 实际上属于转贴。。呵呵:- 原始文章来自微软，微软么，是大家的微...
收集整理的这篇文章主要介绍了关于vbs WebBrowser导航问题，觉得挺不错的，现在分享给大家，也给大家做个参考。 实际上属于转贴。。呵呵:-) 原始文章来自微软，微软么，是大家的微软嘛！所以稍微修改了一下，帖到这里。
原文的中文地址是：
http://support.microsoft.COM/kb/185538/zh-cn
实际上，这个实现就是获取一个接口，还是叫事件吧。。。。更明显，反正我是分不清这些东西的。
Dim WIThEvents Web_V1 As SHDocVwCtl.Webbrowser_V1
163的链接一般都是弹出窗口，就用163吧
PRivate Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.navigate2 "http://www.163.com/"
End Sub
如果你想知道弹出窗口的URL呢，那就
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 = False
MsgBox URL
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
WebBrowser1.Navigate URL
End Sub
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 关于vbs WebBrowser导航问题
本文地址： https://pptw.com/jishu/609625.html