VB提取WebBrowser超链接标题:https://lcx.cc/post/580/

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