Foxtable(狐表)用户栏目专家坐堂 → [求助]请教下,获取时效价格的API怎么写?


  共有3242人关注过本帖树形打印复制链接

主题:[求助]请教下,获取时效价格的API怎么写?

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]请教下,获取时效价格的API怎么写?  发帖心情 Post By:2018/12/31 0:20:00 [显示全部帖子]

API文档
基础信息下

获取时效价格


的代码应该怎么写?



合作商编码(company_id):   a27daa5603d342bd8021c90a8c497d7f
合作商名称:                       zto73125
合作商签名key:                  dc3f587db1e1
是否BASE64:                     Y

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/1/2 9:56:00 [显示全部帖子]

请教请教

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/1/2 13:31:00 [显示全部帖子]

Dim properties As new zopsdk.ZopProperties("替换值","替换值")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "替换值"
request.addParam("company_id", "替换值")
request.addParam("msg_type", "类型替换值")
request.addParam("data", "{""dispCity"":""无锡市"",""dispProv"":""江苏"",""sendCity"":""杭州市"",""sendProv"":""浙江""}"data替换值)
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)

就是这个API都是这么写,只是这几个替换值不一样是吧

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By:2019/1/3 0:15: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/priceAndHourInterfaceGetHourPrice"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "GET_HOUR_PRICE")
request.addParam("data", "{""dispCity"":""无锡市"",""dispProv"":""江苏"",""sendCity"":""杭州市"",""sendProv"":""浙江""}")
Dim str = client.execute(request)
msgbox(str)
Dim jo As JObject = JObject.Parse(str)
msgbox("时效:" & jo("data")("hour").tostring )
msgbox("首重:" & jo("data")("firstMoney").tostring )
msgbox("续重:" & jo("data")("addMoney").tostring )






 回到顶部