Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten
Autor
Nachricht
Prosoft
Newbie
Newbie

Anmeldedatum: 03.12.2009
Beiträge: 1
Webseiten Autologin / Cookies
Verfasst am: 03.12.2009, 19:50
Hallo, ich hab mir ein kleines Prog geschrieben, welches sich automatisch auf div. Webseiten einlogen soll.

Das Prog merkt sich auch gleich die Cookies, damit er, sollte ein Cookie vorhanden sein, gleich mit Cookie nach dem login weitergeleitet wird.

Code:
       

       Dim username, password As String

        username = "TestUser"
        password = "TestPW"

        'Cookie Container erstellen um bei der nächsten Anfrage wieder eingelogt zu sein
        Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.relink.us/index.php"), HttpWebRequest)

        Request.CookieContainer = New CookieContainer()

        With Request
            .Method = "POST"
            .ContentType = "application/x-www-form-urlencoded"
        End With

        'Benutzername und Passwort wird abgeschickt
        Dim Post As String = "username=" & username & "&password=" & password & "=Login"
        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()

        'Response vom Server erhalten - Eingelogt oder nicht
        Dim Response As HttpWebResponse = Request.GetResponse()
        Response.Cookies = Request.CookieContainer.GetCookies(Request.RequestUri)
        DataStream = Response.GetResponseStream()
        Dim reader As New StreamReader(DataStream)
        Dim ServerResponse As String = reader.ReadToEnd()

        For Each SetCookie As Cookie In Response.Cookies
            MessageBox.Show(SetCookie.Name)
        Next

        reader.Close()
        DataStream.Close()
        Response.Close()

        If InStr(ServerResponse, "Umfrage") Then
            MessageBox.Show("Login erfolgreich")
        Else
            MessageBox.Show("Login nicht erfolgreich")
        End If


Die letzte If Abfrage prüft ob ich im Quellcode nach dem Login bestimmte Wörter finde (wie zb. "Erfolgreich eingelogt" ect.)

Irgendwie läuft das noch nicht so recht, ich finde aber nicht den Fehler.

Vielleicht kann mir jemand helfen?!

Danke Cheers
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB.NET] Fragen - Antworten

Tags: login, autologin, webseiten, cookie, cookies

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Passwort Generator 1526 08.07.2010, 00:32
Keine neuen Beiträge Passwort Schutz? 879 25.10.2007, 06:31
Keine neuen Beiträge Das passwort an die E-Mail von mir senden? 562 17.10.2007, 21:18
Keine neuen Beiträge Passwort Generator by sollniss 1269 28.11.2008, 17:03
Keine neuen Beiträge TUT zur Passwort abfrage 1013 10.08.2007, 15:06
 




[ Time: 0.1305s ][ Queries: 81 (0.0257s) ][ GZIP on - Debug on ]