Dim hc As New HttpClient("http://www.foxtable.com/")
OutPut.Show("发送到服务器的数据:" & hc.Content)
OutPut.Show("置数据类型:" & hc.ContentType)
OutPut.Show("取服务器响应的超时时限:" & hc.TimeOut)
OutPut.Show(" User-agent HTTP 标头:" & hc.UserAgent)
OutPut.Show("置 Accept 标头的值:" & hc.Accept)
OutPut.Show("务器数据的超时时限:" & hc.ReadWriteTimeout)
OutPut.Show("置向服务器发送数据时所使用的字符:" & hc.RequestEncoding)
OutPut.Show("解析收到的服务器数据时所采用的字符:" & hc.ResponseEncoding)
OutPut.Show("返回内容的最近一次更新时间:" & hc.LastModified)
OutPut.Show("器返回的状态码:" & hc.StatusCode)
OutPut.Show("器返回的状态字符串:" & hc.StatusDescription)
OutPut.Show("器返回内容的类型:" & hc.ResponseContentType)
OutPut.Show("器返回内容的长度:" & hc.ResponseContentLength)
OutPut.Show("从服务器返回的数据:" & hc.GetData)
命令窗口执行
加好友 
发短信
Post By：2019/12/10 15:08:00 [只看该作者]
