阿里云全国物流查询接口

利用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)


本页地址:http://www.foxtable.com/mobilehelp/topics/0246.htm