Dim ts As Integer=CInt((DateTime.Now.ToUniversalTime().Ticks - 621355968000000000) / 10000000)
Dim sign As String =MD5( "103990cloud.address.resolve" & ts & "1432f1484debecd46dad8cbd11e376bf3a30d826" ,32)
Dim hc As new HttpClient("http://kop.kuaidihelp.com/api/")
hc.FormData.Add("app_id", "103990")
hc.FormData.Add("method", "cloud.address.resolve")
hc.FormData.Add("ts", ts )
hc.FormData.Add("sign", sign )
hc.FormData.Add("data", "{""text"":""浙江省绍兴市诸暨市浣东街道西子公寓北区电话:13905857430 衣服 食物 "",""multimode"":false}")
Dim ret = hc.GetData
Dim jo As JObject = JObject.Parse( ret )
Output.Show( jo("msg"))
Output.Show( jo("uid"))
For Each jt As JToken In jo("data")
Output.Show(jt("phone").ToString)
Output.Show(jt("mobile").ToString)
Output.Show(jt("name").ToString)
Output.Show(jt("province_name").ToString)
Output.Show(jt("city_name").ToString)
Output.Show(jt("county_name").ToString)
Output.Show(jt("detail").ToString)
Next
结果:
成功
d33be82ae4fec03a01765909c072398700000000
13905857430
衣服 食物
浙江省
绍兴市
诸暨市
浣东街道西子公寓北区