【已解决】[求助]z t o a p i中通api - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]z t o a p i中通api

共有5990人关注过本帖树形打印复制链接主题：【已解决】[求助]z t o a p i中通api

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/27 23:23:00 [显示全部帖子]

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

[此贴子已经被作者于2018/12/27 23:22:52编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/28 11:33:00 [显示全部帖子]

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)
For Each o As object In jo("data")(0)("traces")
output.show(o("scanDate").Tostring & "|" & o("desc").tostring)
Next

下一主题 >> << 上一主题

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