VB取超链接

【文件属性】：

文件名称：VB取超链接

文件大小：362B

文件格式：TXT

更新时间：2015-03-07 02:19:08

超链接 VB

Dim vDoc, vTag Dim i As Integer Set vDoc = WebBrowser1.Document List1.Clear For i = 0 To vDoc.All.length - 1 If UCase(vDoc.All(i).tagName) = "A" Then Set vTag = vDoc.All(i) List1.AddItem vTag.innertext & vTag.href End If Next i