请你测试下面的代码: '********************************************** '** 功能:取得当前网址中的所有链接名称和地址 ** '** 要引用 Microsoft HTML Object Library ** '** 2005-01-7 00:40:00 ** '** 作者:风铃夜思雨 ** '**********************************************
Private Sub GetLinks() Dim Doc As IHTMLDocument2 Dim All As IHTMLElementCollection Dim L As Integer Dim i As Integer Dim Varl As Variant
Set Doc = WebBrowser1.Document Set All = Doc.links L = All.length For i = 0 To L - 1 Set Varl = All.Item(i, varempty) List1.AddItem ("链接名称:" & Varl.innerText & " 链接地址:" & Varl.href) Set Varl = Nothing Next i Set All = Nothing Set Doc = Nothing End Sub
Private Sub Command1_Click() WebBrowser1.Navigate "http://china.alibaba.com/?cosite=123hao&location=homepage_sy" End Sub
Private Sub Form_Load() WebBrowser1.Navigate "http://china.alibaba.com/?cosite=123hao&location=homepage_sy" End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) GetLinks End Sub
'**********************************************
'** 功能:取得当前网址中的所有链接名称和地址 **
'** 要引用 Microsoft HTML Object Library **
'** 2005-01-7 00:40:00 **
'** 作者:风铃夜思雨 **
'**********************************************
Private Sub GetLinks()
Dim Doc As IHTMLDocument2
Dim All As IHTMLElementCollection
Dim L As Integer
Dim i As Integer
Dim Varl As Variant
Set Doc = WebBrowser1.Document
Set All = Doc.links
L = All.length
For i = 0 To L - 1
Set Varl = All.Item(i, varempty)
List1.AddItem ("链接名称:" & Varl.innerText & " 链接地址:" & Varl.href)
Set Varl = Nothing
Next i
Set All = Nothing
Set Doc = Nothing
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate "http://china.alibaba.com/?cosite=123hao&location=homepage_sy"
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://china.alibaba.com/?cosite=123hao&location=homepage_sy"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
GetLinks
End Sub