Question

VB WebBrowser 获取网页全部链接

用VB找出一个旺叶中的所有链接，本人要急用，重赏。。。

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim x As Long

For x = 0 To WebBrowser1.Document.links.length - 1
Debug.Print WebBrowser1.Document.links.Item(x)
Next x
'length属性返回元素集中元素的个数
Debug.Print "共有" & WebBrowser1.Document.links.length & "个链接。"
End Sub

Answer 2

HttpSendRequest 发送祈求获取网页的html
正则表达式匹配到链接