用WebBrowser获得链接名称

[wgd]

怎样用WebBrowser控件获得
<a herf="http://www.xyz.com">abc</a>
中的abc

[rainstormmaster]

用dhtml解析网页就可以了

[rainstormmaster]

一个例子：

Option Explicit

Private Sub Command1_Click()
Me.WebBrowser1.Navigate2 "http://www.google.com/search?hl=zh-CN&ie=UTF-8&oe=UTF-8&q=%E6%89%98%E7%9B%98+vb&btnG=Google%E6%90%9C%E7%B4%A2&lr=lang_zh-CN"
End Sub

Private Sub Command2_Click()
Dim vDoc As Object
Dim i As Long
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
Debug.Print vDoc.All(i).tagName
If UCase(vDoc.All(i).tagName) = "A" Then
List1.AddItem vDoc.All(i).innerText
End If
Next
Set vDoc = Nothing
End Sub

[海牛]

老大，，真是快，，偶想献丑都不行了！:)

[online]

参考
http://www.microsoft.com/china/msdn/workshop/scrape.asp