实际上属于转贴。。呵呵:-)
原始文章来自微软，微软么，是大家的微软嘛！所以稍微修改了一下，帖到这里。
原文的中文地址是：
http://support.microsoft.com/kb/185538/zh-cn
实际上，这个实现就是获取一个接口，还是叫事件吧。。。。更明显，反正我是分不清这些东西的。
DimWithEventsWeb_V1AsSHDocVwCtl.WebBrowser_V1
163的链接一般都是弹出窗口，就用163吧
PrivateSubForm_Load()
SetWeb_V1=WebBrowser1.Object
WebBrowser1.Navigate2"http://www.163.com/"
EndSub
如果你想知道弹出窗口的URL呢，那就
PrivateSubWeb_V1_NewWindow(ByValURLAsString,_
ByValFlagsAsLong,_
ByValTargetFrameNameAsString,_
PostDataAsVariant,_
ByValHeadersAsString,_
ProcessedAsBoolean)
Processed=False
MsgBoxURL
EndSub
如果你想让弹出窗口在原来的窗体里显示呢，就
PrivateSubWeb_V1_NewWindow(ByValURLAsString,_
ByValFlagsAsLong,_
ByValTargetFrameNameAsString,_
PostDataAsVariant,_
ByValHeadersAsString,_
ProcessedAsBoolean)
Processed=True
WebBrowser1.NavigateURL
EndSub
【关于vbs WebBrowser导航问题】相关文章：