【VB技巧】VB提取WebBrowser超链接标题

  • A+
所属分类:lcx

读取WebBrowser中所有超链接:https://lcx.cc/post/579/

VB提取WebBrowser所有超链接标题:

Dim AllCode As String, I As Integer, KeyTmp As String
If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
    Set AllCode = WebBrowser1.Document.getElementsByTagName("a")
    For I = 0 To AllCode.length - 1
        DoEvents '转让控制权防止假死
        If Len(AllCode(I).innerText) 0 Then KeyTmp = KeyTmp & AllCode(I).innerText & vbCrLf
    Next
End If

文章来源于lcx.cc:【VB技巧】VB提取WebBrowser超链接标题

相关推荐: 对于一个http请求,如何找里面的安全漏洞,能否自动化完成呢?

对于一个http请求,如何找里面的安全漏洞,能否自动化完成呢? xsser (十根阳具有长短!!) | 2014-06-16 14:25 POST /cpc/incrementPV HTTP/1.1 Host: x.com Content-Length: 48…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: