[vb.net]Inloggen dmv HttpWebrequest

Dim req As HttpWebRequest = WebRequest.Create("http://ep2.nl/member.php")
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.CookieContainer = New CookieContainer()

        Dim loginForm As New loginPostForm("ikke", "****")
        Dim postData As Byte() = loginForm.getData

        req.ContentLength = postData.Length


        Dim reqStream As System.IO.Stream = req.GetRequestStream

        reqStream.Write(postData, 0, postData.Length)
        reqStream.Close()

        Dim res As HttpWebResponse = req.GetResponse
        RichTextBox1.Text = New IO.StreamReader(res.GetResponseStream).ReadToEnd

Public Class loginPostForm
    Dim username As String
    Dim password As String
    Dim action As String = "do_login"
    Dim url As String = "http://ep2.nl/index.php"
    Sub New(ByVal username As String, ByVal password As String)
        Me.username = username
        Me.password = password
    End Sub

    Function getData() As Byte()
        Dim enc As New System.Text.ASCIIEncoding
        Dim data As String

        data = "username=" & username
        data &= "&password=" & password
        data &= "&action=" & action
        data &= "&url=" & url

        Dim encData As Byte() = enc.GetBytes(data)
        Return encData
    End Function
End Class

Dim req As HttpWebRequest = WebRequest.Create("http://localhost/php/test.php")
        Dim cookieJar As New CookieContainer
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        req.Referer = "http://ep2.nl/member.php?action=login"
        req.CookieContainer = cookieJar
        req.AllowAutoRedirect = False

        Dim loginForm As New loginPostForm("test", "test1", "") 'get_post_key())
        Dim postData As Byte() = loginForm.getData

        req.ContentLength = postData.Length


        Dim reqStream As System.IO.Stream = req.GetRequestStream

        reqStream.Write(postData, 0, postData.Length)
        reqStream.Close()


        Dim res As HttpWebResponse = req.GetResponse

        Dim newLocation As String = "http://localhost/php/" & res.GetResponseHeader("location")
        req = WebRequest.Create(newLocation)
        req.CookieContainer = cookieJar

        res = req.GetResponse

        RichTextBox1.Text = New IO.StreamReader(res.GetResponseStream).ReadToEnd