以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]呼叫用户名叫：有点甜，帮我看看快递API的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129260)
--  作者：zto001
--  发布时间：2018/12/25 13:59:00
--  [求助]呼叫用户名叫：有点甜，帮我看看快递API的代码
[求助]呼叫用户名叫：有点甜，帮我看看快递API的代码

您这边之前有回帖一个求助帖，我是菜鸟，没用过这类的代码，方便跟我解释下，我需要怎么套用吗？

帖子地址http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=128955


我qq是：2722838195，方便加下您qq吗？


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))
--  作者：有点甜
--  发布时间：2018/12/25 14:19:00
--  

把你的账号密码替换红色的代码，如

 

加入参数，参考蓝色代码

 

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