Dim myHttpWebRequest1 As HttpWebRequest = CType(WebRequest.Create(postUrl), HttpWebRequest)
If Not (Me.Cookies Is Nothing) Then
myHttpWebRequest1.CookieContainer = Me.Cookies
Else
myHttpWebRequest1.CookieContainer = New Net.CookieContainer
Me.Cookies = myHttpWebRequest1.CookieContainer
End If
Dim myRequestState As New xpasp_com.RequestState
myRequestState.request = myHttpWebRequest1
myHttpWebRequest1.AllowAutoRedirect = True
myHttpWebRequest1.ContentType = "application/x-www-form-urlencoded"
myHttpWebRequest1.Method = "POST"
myHttpWebRequest1.Timeout = 20 * 1000
Dim postStream As Stream = myHttpWebRequest1.GetRequestStream
Dim encoder As System.Text.Encoding = System.Text.Encoding.GetEncoding("gb2312")
Dim ByteArray As Byte() = encoder.GetBytes(postStr)
postStream.Write(ByteArray, 0, postStr.Length)
postStream.Close()
Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest1.GetResponse(), HttpWebResponse)
If tid = 0 Or CheckBox8.CheckState Then
Dim streamResponse As Stream = myHttpWebResponse.GetResponseStream()
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("gb2312")
'MsgBox(myHttpWebResponse.ResponseUri().ToString)
Dim streamRead As New StreamReader(streamResponse, enc)
Dim readBuff(256) As [Char]
Dim count As Integer = streamRead.Read(readBuff, 0, 256)
Console.WriteLine(ControlChars.Cr + "The contents of HTML Page are : ")
Dim fs As New FileStream(selectPath & "\System\Temp\F1.htm", FileMode.Create)
Dim sw As New StreamWriter(fs, enc)
While count > 0
Dim outputData As New [String](readBuff, 0, count)
Console.WriteLine(outputData)
sw.WriteLine(outputData)
count = streamRead.Read(readBuff, 0, 256)
End While
sw.Close()
fs.Close()
If CheckBox8.CheckState Then
Shell("C:\\Program Files\\Internet Explorer\\IEXPLORE.EXE " + selectPath & "\System\Temp\F1.htm", 1)
End If
streamResponse.Close()
streamRead.Close()
'allDone.WaitOne()