Question

vb 获取网页超链接和超链接上的文字

Answer 1

推荐使用WebBrowser控件来获取超链接。
在WebBrowser1_DocumentComplete事件里面，可以检举到超链接和该链接的文本。
WebBrowser1.Document.links.length '这个是网页上超链接的数量
WebBrowser1.Document.links.Item(i).innerText '这个属性是超链接的文本
WebBrowser1.Document.links.Item(i).outerhtml '这个属性是超链接的网址

或者自己编写函数，查找html文本的【<a href="......."】字段，里面就是超链接的网址，超链接文本在紧跟后门的【>......<】字段里面。

个人极力推荐用WebBrowser1控件实现。

Answer 2

加个webbrowser 及 command 及 list
Private Sub Command1_Click()
Dim i As Integer, S As String
S = ""
For i = 0 To WebBrowser1.Document.links.length - 1

If WebBrowser1.Document.links.Item(i) <> S Then
List1.AddItem WebBrowser1.Document.links.Item(i).innerText & "|" & WebBrowser1.Document.links.Item(i)
S = WebBrowser1.Document.links.Item(i)
End If

Next i
End Sub