主题：【已解决】[求助]z t o a p i中通api

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/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""680000000000""]") '查询两个单号
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
output.show(jo.Tostring)
msgbox(jo("data")(0)("traces")(0)("desc").tostring)
msgbox(jo("data")(0)("traces")(1)("desc").tostring)

http://www.foxtable.com/mobilehelp/scr/0140.htm