【VB技巧】读取WebBrowser中所有超链接

VB读取WebBrowser中所有超链接：

Dim AllCode, I, UrlTmp As String
Set AllCode = WebBrowser1.Document.All
For I = 0 To AllCode.length - 1
    If AllCode.Item(I).TagName = "A" Then UrlTmp = UrlTmp & AllCode.Item(I).href & vbCrLf '判断标签,提取数值
Next
UrlList.Text = UrlTmp