阿里云全国物流查询接口
利用Foxtable 2017,可以很方便第对第三方接口进行开发,实际上微信接口就是第三方接口。
本节再提供一个微信之外的接口开发示例:阿里云全国物流查询接口
此接口需要购买,不过非常便宜,在我写这个文档的时候,你只需花1分钱,就可以买100次的使用权:
https://market.aliyun.com/products/57126001/cmapi010996.html#sku=yuncode499600008
购买之后,获取AppCode进行开发。
购买页面有接口使用说明,按照说明,我们开发出一下功能,每一个功能都只有四行代码,相比阿里云的示例,要简单得多。
假定我们的AppCode为:7858a126750949e4a36371580f420413,快递单号为:929601675231
根据快递单号查询快速公司名
参考代码:
Dim
hc As
New HttpClient("http://ali-deliver.showapi.com/fetchCom?nu=929601675231")
hc.Headers.Add("Authorization","APPCODE
" &
"7858a126750949e4a36371580f420413")
Dim
jo As
JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)
根据快递单号查询物流信息
参考代码:
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)
所有代码返回的都是JSON数据,你可以对JSON数据进行进一步的处理,例如:
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)
If
jo("showapi_res_body")("data")
IsNot Nothing
Then
For Each
jt As
JToken In
jo("showapi_res_body")("data")
Output.Show(jt("time").ToString
& " | "
& jt("context").ToString)
Next
End
If
显示的内容为:
2017-03-02 10:24:37 | 快件在【江门江海集散中心】已装车,准备发往下一站
2017-03-02 05:41:54 | 快件到达 【江门江海集散中心】
2017-03-01 22:31:24 | 快件在【湛江麻章集散中心】已装车,准备发往 【江门江海集散中心】
2017-03-01 22:24:37 | 快件到达 【湛江麻章集散中心】
2017-03-01 20:02:01 | 快件在【湛江市赤坎文保北村营业点】已装车,准备发往 【湛江麻章集散中心】
2017-03-01 19:49:28 | 顺丰速运 已收取快件
查询所有快递公司信息
参考代码:
Dim
hc As
New HttpClient("http://ali-deliver.showapi.com/showapi_expressList?maxSize=500")
hc.Headers.Add("Authorization","APPCODE
" &
"7858a126750949e4a36371580f420413")
Dim
jo As
JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)