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

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

求助大神们

厉害厉害，我研究研究

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

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

我的账户：

需要得到的有：

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	=	扫描类型

执行代码，如

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

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

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

嗯嗯嗯，可以了

'获取网点省市区

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