MSDN里面的例子Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.baidu.com"), HttpWebRequest) ' Sends the request and waits for a response. Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse) ' Calls the method GetResponseStream to return the stream associated with the response. Dim receiveStream As Stream = myHttpWebResponse.GetResponseStream() Dim encode As Encoding = System.Text.Encoding.GetEncoding("gb2312") ' Pipes the response stream to a higher level stream reader with the required encoding format. Dim readStream As New StreamReader(receiveStream, encode) Dim read(256) As [Char] ' Reads 256 characters at a time. Dim count As Integer = readStream.Read(read, 0, 256) While count > 0 ' Dumps the 256 characters to a string and displays the string to the textbox. Dim str As New [String](read, 0, count) TextBox1.Text += str count = readStream.Read(read, 0, 256) End While ' Releases the resources of the Stream. readStream.Close() ' Releases the resources of the response. myHttpWebResponse.Close()
' Sends the request and waits for a response.
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse) ' Calls the method GetResponseStream to return the stream associated with the response.
Dim receiveStream As Stream = myHttpWebResponse.GetResponseStream()
Dim encode As Encoding = System.Text.Encoding.GetEncoding("gb2312") ' Pipes the response stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(receiveStream, encode) Dim read(256) As [Char]
' Reads 256 characters at a time.
Dim count As Integer = readStream.Read(read, 0, 256) While count > 0
' Dumps the 256 characters to a string and displays the string to the textbox.
Dim str As New [String](read, 0, count)
TextBox1.Text += str
count = readStream.Read(read, 0, 256)
End While ' Releases the resources of the Stream.
readStream.Close()
' Releases the resources of the response.
myHttpWebResponse.Close()
http://post.baidu.com/f?kz=14274021