110,539
社区成员
发帖
与我相关
我的任务
分享
Dim request As HttpWebRequest = CType(WebRequest.Create(surl1), HttpWebRequest)
request.CookieContainer = mySaveCookieContainer
request.Timeout = 100000000
'request.AllowAutoRedirect = True
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(PostData)
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
'post
Dim newStream As Stream = request.GetRequestStream()
newStream.Write(byteArray, 0, byteArray.Length)
newStream.Flush()
newStream.Close()
Dim res As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
mySaveCookieContainer.Add(res.Cookies)
pageHtml = New StreamReader(res.GetResponseStream(), Encoding.UTF8).ReadToEnd()
Dim a = res.Headers(HttpResponseHeader.Location)