代码如下,后端是临时测试的,错误定义为:400, "自定义错误"
Dim htc As New HttpClient("http://*.*.*.*:52081")
htc.Timeout = 3
Dim ret As object
ret = htc.GetData(True)
If htc.StatusCode = 200 Then
msgbox(ret)
End If
OutPut.Show("Accept:" & htc.Accept)
OutPut.Show("UserAgent:" & htc.UserAgent)
OutPut.Show("更新日期:" & htc.LastModified)
OutPut.Show("状态码:" & htc.StatusCode)
OutPut.Show("状态描述:" & htc.StatusDescription)
OutPut.Show("内容类型:" & htc.ResponseContentType)
OutPut.Show("内容长度:" & htc.ResponseContentLength)
Output.Show("------Headers-------------")
For Each key As String In htc.ResponseHeaders.Keys '显示服务器返回的头部信息
OutPut.Show(Key & ":" & htc.ResponseHeaders(key))
Next
Output.Show("------cookies-------------")
For Each key As String In htc.rCookies.Keys '显示服务器返回的头部信息
OutPut.Show(Key & ":" & htc.rCookies(key))
Next
结果返回如下:(不能获取到自定义错误的描述)
Accept:
UserAgent:
更新日期:00:00:00
状态码:0
状态描述:
内容类型:
内容长度:0
------Headers-------------
------cookies-------------
Error:远程服务器返回错误: (400) 错误的请求。
[此贴子已经被作者于2020/7/23 17:18:00编辑过]