首页 / 算法 / 用天眼查查询企业信息（含token和_utm值算法）

用天眼查查询企业信息（含token和_utm值算法）

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了用天眼查查询企业信息（含token和_utm值算法），小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2604字，纯文字阅读大概需要4分钟。

内容图文

已知企业ID，查询企业信息。主要是token和_utm两个值的获取。

代码如下：

            Sub
             Main()
    
            ‘
            根据企业在天眼查内的ID来查询企业信息
            ‘
            原创：wcymiss
            Dim strText AsStringDim objHttp AsObjectDim strURL AsStringDim ID AsStringDim sgArr() AsStringDim strToken AsStringDim strUtm AsStringDim strV AsStringDim strCode AsStringDim Index AsInteger
    
    ID = "812498657"Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    strURL = "http://www.tianyancha.com/tongji/" & ID & ".json"With objHttp
        .Open "GET", strURL, False
        .setRequestHeader "Accept", "application/json, text/plain, */*"
        .Send
        strText = .responsetext
    EndWith
    strCode = Split(Split(strText, ",""v"":""")(1), """")(0)
    strV = StringFromCode(strCode)
    strToken = Split(Split(strV, "‘token=")(1), ";")(0)
    strCode = Split(Split(strV, "return‘")(1), "‘")(0)

    strURL = "http://static.tianyancha.com/wap/resources/scripts/app-ce05b92dbf.js"With objHttp
        .Open "GET", strURL, False
        .Send
        strText = .responsetext
    EndWith
    sgArr = GetSoGou(strText)
    Index = Asc(Left(ID, 1)) Mod10
    strUtm = GetUtm(sgArr, Index, strCode)

‘    Debug.Print strToken
‘    Debug.Print strUtm
    strURL = "http://www.tianyancha.com/company/" & ID & ".json"With objHttp
        .Open "GET", strURL, False
        .setRequestHeader "Accept", "application/json, text/plain, */*"
        .setRequestHeader "Cookie", "token=" & strToken & ";_utm=" & strUtm
        .Send
        strText = .responsetext
    EndWithSet objHttp = Nothing
    Debug.Print strText
End SubPrivateFunction GetSoGou(strText AsString) AsString()
    Dim arr() AsStringDim i AsIntegerDim objReg AsObjectDim sgArr(0To9) AsStringDim Index AsIntegerSet objReg = CreateObject("VBScript.Regexp")
    objReg.Global = True
    
    arr = Split(strText, "appendChlid(")
    For i = 1ToUBound(arr)
        arr(i) = Split(Split(arr(i), ">")(1), "<")(0)
    Next
    objReg.Pattern = "&[^;]*;"For i = 1ToUBound(arr)
        arr(i) = objReg.Replace(arr(i), "")
    Next
    objReg.Pattern = "[^0-9a-z-]"For i = 1ToUBound(arr)
        arr(i) = objReg.Replace(arr(i), "")
    NextSet objReg = NothingFor i = 1ToUBound(arr)
        IfLen(arr(i)) > 1Then
            Index = Left(arr(i), 1)
            sgArr(Index) = sgArr(Index) & Mid(arr(i), 2)
        EndIfNext
    GetSoGou = sgArr
End FunctionPrivateFunction GetUtm(sgArr() AsString, Index AsInteger, strCode AsString) AsStringDim i AsIntegerDim arr() AsString
    arr = Split(strCode, ",")
    For i = 0ToUBound(arr)
        GetUtm = GetUtm & Mid(sgArr(Index), arr(i) + 1, 1)
    NextEnd FunctionPrivateFunction StringFromCode(strCode AsString) AsStringDim i AsIntegerDim arr() AsString
    arr = Split(strCode, ",")
    For i = 0ToUBound(arr)
        StringFromCode = StringFromCode & Chr(arr(i))
    NextEnd Function

 

原文：http://www.cnblogs.com/wcymiss/p/6322554.html

内容总结

以上是互联网集市为您收集整理的用天眼查查询企业信息（含token和_utm值算法）全部内容，希望文章能够帮你解决用天眼查查询企业信息（含token和_utm值算法）所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1054937.html

来源：【匿名】