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

Filed under:
|

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

Related posts about vb.net

Related posts about httpwebrequest