参考:代码想获得响应页面内容
Private Sub PostData(ByVal StrUrl As String, ByVal StrPostData As String)
Dim 请求 As HttpWebRequest
Dim 响应 As HttpWebResponse
Dim ResStr1 As String = ""
Try
请求 = HttpWebRequest.Create(StrUrl)
请求.Referer = "http:/xzzz.crcoo.com/"
请求.AllowAutoRedirect = False
请求.UserAgent = "Mozilla/4.0 (compatible; MSIE 6.01; Windows NT 5.0)"
If StrPostData.Length > 0 Then '包含要提交的数据 就使用Post方式
请求.ContentType = "application/x-www-form-urlencoded" '作为表单请求
请求.Method = "POST" '方式就是Post
Dim B() As Byte = System.Text.Encoding.GetEncoding("GB2312").GetBytes(StrPostData) '把提交的数据换成字节数组
请求.ContentLength = B.Length
Dim SW As IO.Stream = 请求.GetRequestStream '开始提交数据
SW.Write(B, 0, B.Length)
SW.Close()
End If
响应 = 请求.GetResponse
Dim S1 As New IO.StreamReader(响应.GetResponseStream, System.Text.Encoding.GetEncoding("GB2312"))
ResStr1 = S1.ReadToEnd
S1.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
响应.Close()
End Try
End Sub