使用HttpWebRequest提交表单数据

'本程序仅供参考，请勿用于非法用途

Dim strId As String = "lishewen"

Dim strPassword As String = "123456"

'定义编码器

Dim encoding As New ASCIIEncoding()

Dim postData As String = "userid=" + strId

postData += ("&password=" + strPassword)

Dim data As Byte() = encoding.GetBytes(postData)

'获得HttpWebRequest对象

Dim myRequest As HttpWebRequest = DirectCast(WebRequest.Create("http://www.lishewen.com/login.asp"), HttpWebRequest)

myRequest.Method = "POST"

myRequest.ContentType = "application/x-www-form-urlencoded"

myRequest.ContentLength = data.Length

Dim newStream As Stream = myRequest.GetRequestStream()

'发送数据

newStream.Write(data, 0, data.Length)

newStream.Close()

'接收返回信息

Dim myResponse As HttpWebResponse = DirectCast(myRequest.GetResponse(), HttpWebResponse)

Dim reader As New StreamReader(myResponse.GetResponseStream(), System.Text.Encoding.[Default])

Dim content As String = reader.ReadToEnd()

Console.WriteLine(content)

Biegral Blog