主题：[求助]用中通开发平台的快递API怎么写代码？

1、引用 dll

http://www.foxtable.com/webhelp/scr/1936.htm

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:zopsdk.zip

2、执行代码，如

Dim properties As new zopsdk.ZopProperties("kfpttestCode","kfpttestkey==")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceLatest"
request.addParam("company_id", "your_companyid")
request.addParam("msg_type", "LATEST")
request.addParam("data", "[""680000000000"",""680000000001""]")
msgbox(client.execute(request))

参考代码

Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceLatest"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "LATEST")
request.addParam("data", "[""680000000000"",""680000000001""]") '查询两个单号
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
output.show(jo.Tostring)
msgbox(jo("data")(0)("traces")("desc").tostring)
msgbox(jo("data")(1)("traces")("desc").tostring)