Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]用中通开发平台的快递API怎么写代码？

共有3193人关注过本帖树形打印复制链接主题：[求助]用中通开发平台的快递API怎么写代码？

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

[求助]用中通开发平台的快递API怎么写代码？ 发帖心情

Post By：2018/12/18 23:32:00 [只看该作者]

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

中通开发平台api网址

http://zop.zto.com/apiDoc/

我想用里面的

快件轨迹----获取快件最新一条这个api

请问下该如何写代码，我需要最新的物流记录，怎么获取？

求助大神们

有点甜

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

加好友

发短信

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

Post By：2018/12/19 10:23:00 [只看该作者]

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

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2018/12/19 15:49:00 [只看该作者]

厉害厉害，我研究研究

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2018/12/25 13:33:00 [只看该作者]

您qq是多少？不太懂，没学会

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2018/12/25 13:33:00 [只看该作者]

我的qq2722838195

有点甜

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

加好友

发短信

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

Post By：2018/12/25 14:26:00 [只看该作者]

贴出你的账号密码等信息，说明要调用什么

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2018/12/27 13:28:00 [只看该作者]

非常抱歉，你虽然解释了，但我还是没懂。

我的账户：

需要得到的有：

dim	desc	as	String	=	路由详细描述
dim	dispOrRecMan	as	String	=	派件或收件员
dim	dispOrRecManPhone	as	String	=	派件或收件员电话
dim	isCenter	as	String	=	扫描网点是否中心("T" or "F")
dim	preOrNextCity	as	String	=	上一站或下一站城市
dim	preOrNextProv	as	String	=	上一站或下一站省份
dim	preOrNextSite	as	String	=	上一站或下一站网点
dim	preOrNextSitePhone	as	String	=	上一站或下一站网点联系方式
dim	scanCity	as	String	=	扫描网点所在城市
dim	scanDate	as	String	=	扫描时间
dim	scanProv	as	String	=	扫描网点所在省份
dim	scanSite	as	String	=	扫描网点
dim	scanSitePhone	as	String	=	扫描网点联系方式
dim	scanType	as	String	=	扫描类型

执行代码，如

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

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2018/12/27 14:21:00 [只看该作者]

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

有点甜

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

加好友

发短信

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

Post By：2018/12/27 14:57: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/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)

zto001

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

加好友

发短信

等级：六尾狐帖子：1489 积分：10602 威望：0 精华：0 注册：2018/10/16 11:42:00

Post By：2018/12/27 17:24:00 [只看该作者]

嗯嗯嗯，可以了

'获取网点省市区

Dim properties As new zopsdk.ZopProperties("kfpttestCode","488670600479")

Dim client As new zopsdk.ZopClient(properties)

Dim request As new zopsdk.ZopRequest()

request.url = "http://japi.zto.cn/DoNetGatewayService"

request.addParam("company_id", "aba039910ee749e7938e0fa5473eba7a")

request.addParam("msg_type", "LATEST")

request.addParam("baseOrgDto", "{""name"":""长沙岳麓区"",""pageSize"":100,""pageIndex"":1}")

'MessageBox.Show (client.execute(request))

'"data": {

'"baseOrganize": [

'"address": "新港路1号",

'"code": "000002",

'"districtid": 350902,

'"province": "福建",

'"city": "宁德市",

'"district": "蕉城区",

'"fullName": "宁德工业区",

'"id": 1045440,

'"cityId": 350900,

'"provinceId": 350000

'],

'"pageIndex": 1,

'"recordCount": 31681,

'"pageSize": 1

'},

'"success": true,

'"message": "操作成功"

Dim jo As JObject = JObject.Parse(client.execute(request))

Output.Show(jo("data").ToString)

For i As Integer = 0 To jo.Count - 1

' Output.Show(jo("data")("baseOrganize")(i)("province").ToString)

Output.Show(jo("data")("baseOrganize")(i)("province").ToString & "|" & jo("data")("baseOrganize")(i)("city").ToString & "|" & jo("data")("baseOrganize")(i)("district").ToString & "|" & jo("data")("baseOrganize")(i)("fullName").ToString)

[此贴子已经被作者于2020/9/24 20:29:41编辑过]

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

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

快件轨迹----获取快件最新一条 这个api

快件轨迹----获取快件最新一条这个api