我这样测试没问题
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编辑过]