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 )