用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 sub