Visual-Basic-Forum VB-Paradise.de

HTML

email=Username%40hotmail.de&password=PASSWORT&ipRestriction=1&login=Einloggen&jsEnabled=true&formkey=bd0c34ba948f40117e0511788e5dfe982951501380a5e463e14616942f9edd59aa1ec4c9a859440312b442b06ee09f4b78856dc0b6be9c83582b8867d4b9ce23b4c6b93da582bd2787025bf3dc4a9ac78f5f1c103349d10fc186595bf9efdf83&iv=d6ae3ad6521c0da45bc0551e75e43040

Visual Basic Quellcode

System.Net , System.IO , System.Text.RegularExpressions

Visual Basic Quellcode

Imports System.Net, System.IO, System.Text.RegularExpressions
Public Class Form1
Private Containa = New Cookiecontainer

Visual Basic Quellcode

     Dim Source As String = New WebClient().DownloadString("https://secure.schuelervz.net/Login") ' Downloadet den Quelltext der Seite.
        Dim FormKey As String = Regex.Match(Source, "formkey"" value=""([^""]+)""").Groups(1).Value ' Regex für den Formkey
        Dim Iv As String = Regex.Match(Source, "iv"" value=""([^""]+)""").Groups(1).Value ' Regex für die IV

Visual Basic Quellcode

        Dim R As HttpWebRequest = HttpWebRequest.Create("https://secure.schuelervz.net/Login") ' Request erstellen
        R.Method = "POST" ' Ihr gebt die Methode an
        R.CookieContainer = Containa ' Hier gebt ihr den Cookiecontainer an
        R.Host = "secure.schuelervz.net" ' Ihr gebt bei dieser Seite den Host an
        R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8" ' Hier gebt ihr den Useragent an.Nicht nur dieser funktioniert es gibt sehr viele die Ihr angeben könnt.
        R.ContentType = "application/x-www-form-urlencoded" ' Der ContentType , sehr wichtig.

        Dim Post As String = "email=EUREEMAIL%40hotmail.de&password=EUERPASSWORT&ipRestriction=1&login=Einloggen&jsEnabled=true&formkey=" & 

FormKey & "&iv=" & Iv ' Das ist euer Post. Den Formkey & Iv müsst ihr natürlich durch den geregexten ersetzen.

        R.ContentLength = Post.Length ' Die Content Length könnt ihr natürlich erst nach der Post Variable angeben.

Visual Basic Quellcode

Dim Writer As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII) ' Erstellt einen Streamwriter der in den Stream schreibt, mit dem Textencoding Ascii.
        Writer.Write(Post) ' Hiermit wird euer Post in den Stream geschrieben.
        Writer.Close() ' Streamwriter schließen ,  damit er nicht unendlich weiterschreibt.

        Dim Reader As New StreamReader(R.GetResponse.GetResponseStream()) ' Erstellt einen Streamreader der euren Stream ausliest.
        Dim Response As String = Reader.ReadToEnd ' Der Streamreader soll den Stream bis zum Ende auslesen und zwar in die String Variable Response.
        Reader.Close() ' Streamreader wieder schließen , damit er nicht unendlich weiterliest.

        If Response.Contains("Meine Startseite") Then
            MessageBox.Show("Erfolgreich eingeloggt!")
        Else
            MessageBox.Show("Login fehlgeschlagen!")
        End If

Visual Basic Quellcode

Imports System.Net, System.IO, System.Text.RegularExpressions
Public Class Form1
Private Containa = New Cookiecontainer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Source As String = New WebClient().DownloadString("https://secure.schuelervz.net/Login")
        Dim FormKey As String = Regex.Match(Source, "formkey"" value=""([^""]+)""").Groups(1).Value
        Dim Iv As String = Regex.Match(Source, "iv"" value=""([^""]+)""").Groups(1).Value

        Dim R As HttpWebRequest = HttpWebRequest.Create("https://secure.schuelervz.net/Login")
        R.Method = "POST"
        R.CookieContainer = Containa
        R.Host = "secure.schuelervz.net"
        R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
        R.ContentType = "application/x-www-form-urlencoded"

        Dim Post As String = "email=EUREEMAIL%40hotmail.de&password=EUERPASSWORT&ipRestriction=1&login=Einloggen&jsEnabled=true&formkey=" & 

FormKey & "&iv=" & Iv

        R.ContentLength = Post.Length

        Dim Writer As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
        Writer.Write(Post)
        Writer.Close()

        Dim Reader As New StreamReader(R.GetResponse.GetResponseStream())
        Dim Response As String = Reader.ReadToEnd
        Reader.Close()

        If Response.Contains("Meine Startseite") Then
            MessageBox.Show("Erfolgreich eingeloggt!")
        Else
            MessageBox.Show("Login fehlgeschlagen!")
        End If
End Sub
End Class

Visual Basic Quellcode

R.ServicePoint.Expect100Continue = False