阿里云全国物流查询接口

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