Foxtable(狐表)用户栏目专家坐堂 → 快递接口的问题


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

主题:快递接口的问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/3 9:58:00 [显示全部帖子]

1、哪里的快递接口?接口的说明是怎样的?贴出来看看。

 

2、看懂httpclient,根据需求设置请求 http://www.foxtable.com/mobilehelp/scr/0163.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/8/3 16:37:00 [显示全部帖子]

我这样测试没问题

 

Dim hc As New HttpClient("http://ali-deliver.showapi.com/showapi_expInfo?com=yuantong&nu=800851552555646645")
hc.Headers.Add("Authorization","APPCODE " & "278b315cabac4df9a39478de0a8321ad")
msgbox(hc.GetData)

 

这样测试也没问题

 

Dim url As String = "http://ali-deliver.showapi.com/showapi_expInfo?com=yuantong&nu=800851552555646645"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
rqst.Method = "GET"
rqst.Headers.Add("Authorization","APPCODE " & "278b315cabac4df9a39478de0a8321ad")
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm,encoding.utf8)
Dim str As String = reader.ReadToEnd  
stm.Dispose()
msgbox(str)

 

你单号不能填错

[此贴子已经被作者于2018/8/3 17:08:53编辑过]

 回到顶部