Question

如何用vb提取网页里超级连接和连接上的文字

我想用vb提取某一个网页的全部超级连接和【和该连接上的文字】该如何做呢？

Answer 1

刚花了15分钟给你写个一个 ，并调试通过了
在窗体上添加一个webbrowser控件

Option Explicit

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com/"
End Sub

Private Sub WebBrowser1_DownloadComplete()
Dim ObjDoc As Object
Dim i As Integer
Dim ObjLink As Object

Set ObjDoc = WebBrowser1.Document
For Each ObjLink In ObjDoc.links
Debug.Print "链接地址是" & ObjLink.href & " 链接的文字是 <" & ObjLink.innerText & ">"
Next ObjLink
End Sub

运行一下，看一下你的debug窗口的结果