把你的账号密码替换红色的代码,如
加入参数,参考蓝色代码
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))