以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何获取企查查数据接口的headers头  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127393)
--  作者：zhxur
--  发布时间：2018/11/13 9:12:00
--  [求助]如何获取企查查数据接口的headers头
根据阿里云全国物流查询接口示例的代码：
Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=shunfeng&nu=929601675231")
hc.Headers.Add("Authorization","APPCODE " & "7858a126750949e4a36371580f420413")
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)

现在希望对接企查查工商查询接口，但不知道Headers头如何获取？

企查查的加密约定：
Token：key + Timespan + SecretKey 组成的32 位md5 加密的大写字符串
备注：SecretKey、Key 都可以在云聚官网获取，但Timespan不知道怎么写代码？
--  作者：有点甜
--  发布时间：2018/11/13 9:14:00
--  

时间戳，参考

 

Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
msgbox(timestamp)
--  作者：zhxur
--  发布时间：2018/11/13 10:55:00
--  
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
\'msgbox(timestamp)
Dim hc As New HttpClient("http://api.qichacha.com/ECIV4/Search?key=AppKey&keyword=小桔科技")
hc.Headers.Add("7a84a3bd76644302***1bf352b976f", "timestamp " & "0E485858BA****174A69C8C4310570B4")
 Dim jo As JObject = Jobject.Parse(hc.GetData)
 Output.Show(jo.ToString)

代码改成这样对吗？返回结果是：当前的KEY无效或者还未生效中。
--  作者：浙江仔
--  发布时间：2018/11/13 11:47:00
--  
这个加密的SecretKey是要根据企查查内部加密机制生成的，你得申请他们的接口才有
--  作者：有点甜
--  发布时间：2018/11/13 11:49:00
--  

参考代码

 

Dim key = "7a84a3bd76644302***1bf352b976f"
Dim secret = "0E485858BA****174A69C8C4310570B4"
Dim keyword = "小桔科技"
Dim st As New Date(1970,1,1,8,0,0)
Dim tp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
Dim Token = key & tp & secret
token = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(token, "MD5").ToUpper()
Dim hc As New HttpClient("http://api.qichacha.com/ECIV4/Search?key=" & key & "&keyword=" &  keyword)
hc.Headers.Add("Token", Token)
hc.Headers.Add("Timespan", tp)
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)

 

请用网站里面的【测试工具】测试你的各个参数
--  作者：zhxur
--  发布时间：2018/11/13 13:25:00
--  
可以了，多谢！