用WEBBROWSER控件,可以用DOCUMENT的LINKS属性列举页面中所有的链接 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)dim i as long for i=0 to webbrowser1.document.links.length-1 if webbrowser1.document.links(i) like "你的网址*" then webbrowser1.Navigate webbrowser1.document.links(i) exit subnext
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)dim i as long
for i=0 to webbrowser1.document.links.length-1
if webbrowser1.document.links(i) like "你的网址*" then
webbrowser1.Navigate webbrowser1.document.links(i)
exit subnext