Fails proceeding after POSTing to web server
Posted
by OverTheRainbow
on Stack Overflow
See other posts from Stack Overflow
or by OverTheRainbow
Published on 2010-05-17T12:09:14Z
Indexed on
2010/05/17
12:10 UTC
Read the original article
Hit count: 275
vb.net
|httpwebrequest
Hello
According to this question, it seems like the error "Too many automatic redirections were attempted" is caused when forgetting to use a cookiecontainer to connect to a web server that uses cookies to keep track of the user.
However, even though I used "request.CookieContainer = MyCookieContainer", I'm still getting into an endless loop that is terminated by VB Express with this error message.
Imports System.IO
Imports System.Net
'Remember to add reference to System.Web DLL
Imports System.Web
Imports System.Text
Public Class Form1
Const ConnectURL = "http://www.acme.com/logon.php"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim request As HttpWebRequest = WebRequest.Create(ConnectURL)
'Build POST data
request.Method = "POST"
request.ContentType = "application/x-www-form-urlencoded"
Dim Data As New StringBuilder
Data.Append("Account=" + HttpUtility.UrlEncode("jdoe"))
Data.Append("&Password=" + HttpUtility.UrlEncode("test"))
Dim byteData() As Byte
byteData = UTF8Encoding.UTF8.GetBytes(Data.ToString())
request.ContentLength = byteData.Length
Dim postStream As Stream = Nothing
Try
postStream = request.GetRequestStream()
postStream.Write(byteData, 0, byteData.Length)
Finally
If Not postStream Is Nothing Then postStream.Close()
End Try
'Dim MyCookieContainer As New CookieContainer
Dim MyCookieContainer As CookieContainer = New CookieContainer()
request.CookieContainer = MyCookieContainer
'Makes no difference
'request.KeepAlive = True
'request.AllowAutoRedirect = True
Dim response As HttpWebResponse
'HERE
'"Too many automatic redirections were attempted"
response = request.GetResponse()
Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
RichTextBox1.Text = reader.ReadToEnd
End Sub
End Class
This is probably a newbie issue, but I don't know what else to try. Any idea?
Thank you for any hint.
© Stack Overflow or respective owner