WebRequest mit login

[sylver]

Hallo an alle... also ich kommt mal zur Sache und zwar hab ich folgendes Problem....
Ich möchte mich mit HttpWebRequest einloggen und da immer die Fehlermeldung kommt ( "Login fehlgeschlagen.") frage ich Euch wo der Fehler liegen könnte, wäre Euch echt Dankbar. Folgendes habe ich geschrieben:

Ich benutze Visual Basic 2008

Imports System.IO, System.Net, System.Text

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim User = TextBox1.Text, Pwd = TextBox2.Text
        Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.bt247.de"), HttpWebRequest)
        Request.Method = "POST"
        Request.ContentType = "application/x-www-form-urlencoded"
        Dim Post As String = "UserID=" & User & "&Passwort=" & Pwd
        Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
        Request.ContentLength = byteArray.Length
        Dim DataStream As Stream = Request.GetRequestStream()
        DataStream.Write(byteArray, 0, byteArray.Length)
        DataStream.Close()

        Dim Response As HttpWebResponse = Request.GetResponse()
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()
        reader.Close()
        DataStream.Close()
        Response.Close()

        If InStr(ServerResponse, "Angemeldet als") Then
            MsgBox("Sie haben sich erfolgreich eingelogt", MsgBoxStyle.Information, "Information")
        Else
            MsgBox("Login fehlgeschlagen.", MsgBoxStyle.Critical, "Fehler")
        End If

    End Sub
End Class

Edit Frabbing: Code bitte immer in Codetags poste, danke!

[Genesis]

Hi sylver,

beim Überfliegen der Webseite, in der du dich automatisiert einloggen möchtest, ist mir folgende Zeile aufgefallen:

<input type="hidden" name="navaction" value="login">

Den Wert wirst du wohl mit übermitteln müssen.

Gruß,
Gene

[sylver]

HI Genesis, kannst du mir sagen wo und wie ich den code einsetzen muss ? Ich habe schon Tage versucht das irgendwie hin zu bekommen wäre dir sehr Dankbar wenn du den code mit dem jetzigen code verbinden kannst und somit mir ein vervollständigen code schicken kannst Bedanke mich schonmal bei dir Gruß Marco

Dim Post As String = "UserID=" & User & "&Passwort=" & Pwd & "&navaction=login"

[commänder]

Falls Username und/oder Kennwort Sonderzeichen enthalten, solltest Du diese vorher mit System.Web.HttpUtility.UrlEncode() codieren.

Eine nette kleine Hilfsklasse "PostSubmitter" findest Du hier
Http Post In C# oder hier Http Post in C#

Diese Klasse kapselt die ganzen für HTTP-POST notwendigen Dinge in einer einfachen hilfreichen Klasse.

Nachtrag: Wenn Dir VB.NET lieber ist, kannst Du den Sourcecode hier ganz einfach übersetzen lassen: http://www.developerfusion.com/tools.../csharp-to-vb/ oder auch http://www.carlosag.net/Tools/CodeTranslator/