CookieContainer cc = new CookieContainer();
for(int i=0;i<100;i++)
{
HttpWebRequest myReq = (HttpWebRequest)WebRequest.Create(“http://localhost/AspxApp/MainForm.aspx”);
myReq.CookieContainer = cc;
HttpWebResponse resp = myReq.GetResponse() as HttpWebResponse;
Stream s = resp.GetResponseStream();
StreamReader sr = new StreamReader(s);    String text = sr.ReadToEnd();
sr.Close();
s.Close();
}

Imports System.net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Public Class Form1
Private requestScrape As HttpWebRequest
Private responseScrape As HttpWebResponse
Private cc As New CookieContainer
Function GetHttpStream(ByVal url As String, ByVal uname As String, ByVal upass As String) As Stream
‘ 使用 WebRequestFactory 创建请求。
Dim encoding = New ASCIIEncoding
Dim aa As String, ab As Byte()
aa = “username=” & uname & “&password=” & upass & “&loginsubmit=true”
ab = encoding.GetBytes(aa)
‘TextBox3.Text = aa
requestScrape = CType(WebRequest.Create(url), HttpWebRequest)
With requestScrape
.UserAgent = “Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)”
.Method = “POST”
.ContentType = “application/x-www-form-urlencoded”
.ContentLength = ab.Length
.Timeout = 10000
.CookieContainer = cc

End With
Dim newStream As Stream = requestScrape.GetRequestStream()
newStream.Write(ab, 0, ab.Length)
newStream.Close()
Try
‘ 返回响应流。
responseScrape = CType(requestScrape.GetResponse(), HttpWebResponse)
Return responseScrape.GetResponseStream()
Catch exp As Exception
‘ 因为错误最有可能是由键入错误的 Url 或者
‘ 没有 Internet 连接造成的，所以创建一条转发回调用函数的
‘ 自定义错误信息。
Throw New Exception(exp.Message.ToString)
End Try
End Function
‘ 此函数读取由 httpWebResponse 对象返回的流，并
‘ 将其转换为字符串供 RegEx 处理。
Function ConvertStreamToString(ByVal stmSource As Stream, ByVal codeb As Integer) As String
Dim sr As StreamReader = Nothing

If Not IsNothing(stmSource) Then
Try
sr = New StreamReader(stmSource, System.Text.Encoding.GetEncoding(codeb))
‘ 使用设定的编码格式读取并返回流的全部内容。
Return sr.ReadToEnd
Catch exp As Exception
‘ 不显示 MsgBox。只是转发
‘来自 GetHttpStream() 的错误信息。
Throw New Exception()
Finally
‘ 清理 Stream 和 StreamReader。
responseScrape.Close()
sr.Close()
End Try
End If
Return Nothing
End Function

Function GetHttpStream2(ByVal url As String) As Stream
‘ 使用 WebRequestFactory 创建请求。
requestScrape = CType(WebRequest.Create(url), HttpWebRequest)
With requestScrape
.UserAgent = “Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)”
.Method = “GET”
.CookieContainer = cc
.Timeout = 10000
End With

Try
‘ 返回响应流。
responseScrape = CType(requestScrape.GetResponse(), HttpWebResponse)
Return responseScrape.GetResponseStream()
Catch exp As Exception
‘ 因为错误最有可能是由键入错误的 Url 或者
‘ 没有 Internet 连接造成的，所以创建一条转发回调用函数的
‘ 自定义错误信息。
Throw New Exception(exp.Message.ToString)
End Try
End Function
‘ 此函数读取由 httpWebResponse 对象返回的流，并
‘ 将其转换为字符串供 RegEx 处理。
Function ConvertStreamToString2(ByVal stmSource As Stream, ByVal codeb As Integer) As String
Dim sr As StreamReader = Nothing

If Not IsNothing(stmSource) Then
Try
sr = New StreamReader(stmSource, System.Text.Encoding.GetEncoding(codeb))
‘ 使用设定的编码格式读取并返回流的全部内容。
Return sr.ReadToEnd
Catch exp As Exception
‘ 不显示 MsgBox。只是转发
‘来自 GetHttpStream() 的错误信息。
Throw New Exception()
Finally
‘ 清理 Stream 和 StreamReader。
responseScrape.Close()
sr.Close()
End Try
End If
Return Nothing
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ystrm As Stream = GetHttpStream(“http://127.0.0.1/login.asp”, TextBox1.Text, TextBox2.Text)  ’获取网址
Dim respHTML As String = ConvertStreamToString(ystrm, 65001)
RichTextBox1.Text = respHTML.ToString
TextBox3.Text = responseScrape.GetResponseHeader(“Set-Cookie”).ToString

Dim ystrm2 As Stream = GetHttpStream2(“http://127.0.0.1/post.asp”)  ’获取网址
Dim respHTML2 As String = ConvertStreamToString2(ystrm2, 65001)
RichTextBox1.Text = respHTML2.ToString
End Sub
End Class