Ergebnis 1 bis 7 von 7
  1. #1
    Trojaner
    Registriert seit
    30.10.2008
    Beiträge
    85

    Standard Schuelervz Einloggen

    Moin (;,
    ich brauche mal eure Hilfe.
    Ich bin gerade dabei etwas zu Programmieren, zumindest versuche ich es.
    Ich möchte mich gerne über den Webclient in Schuelervz einloggen.
    Aber egal welche Email und welches Passwort ich angebe, es kommt immer die Fehlermeldung, dass die Daten nicht korrekt wären.
    Mein Snippet:

    Code:

    Dim coll As New NameValueCollection
    coll.Add("jsEnabled", "false")
    coll.Add("email", TextBox1.Text)
    coll.Add("password", TextBox2.Text)
    coll.Add("formkey", ID.getformkey)
    coll.Add("iv", ID.getiv)
    coll.Add("checkcode", ID.getcheckcode)
    Dim wc As New WebClient
    Dim bytes() As Byte = wc.UploadValues("http://www.schuelervz.net/", "POST", coll)
    Dim str As String = System.Text.Encoding.ASCII.GetString(bytes)
    If str.Contains("Dies ist deine persönliche Startseite") Then
    MessageBox.Show("Eingeloggt")
    ElseIf str.Contains("Falsche E-Mail-Adresse") Then
    MessageBox.Show("PW/Email falsch")
    End if

    ID:
    Code:

    Public Shared Function getformkey() As String
    'Formkey'
    Dim webclient As New WebClient()
    Dim temp As String = webclient.DownloadString("https://secure.schuelervz.net/Login")
    Dim mymatch As Match = Regex.Match(temp, "name=""formkey"" value=""(.+)""")
    Dim formkey As String = mymatch.Groups(1).Value.ToString
    MessageBox.Show(formkey)
    Return formkey

    End Function
    Public Shared Function getiv() As String
    'iv'
    Dim webclient As New WebClient()
    Dim temp As String = webclient.DownloadString("https://secure.schuelervz.net/Login")
    Dim mymatch As Match = Regex.Match(temp, "name=""iv"" value=""(.+)""")
    Dim iv As String = mymatch.Groups(1).Value.ToString
    MessageBox.Show(iv)
    Return iv
    End Function
    Public Shared Function getcheckcode() As String
    Dim webclient As New WebClient()
    Dim temp As String = webclient.DownloadString("https://secure.schuelervz.net/Login")
    Dim mymatch As Match = Regex.Match(temp, "name=""checkcode"" value=""(.+)""")
    Dim checkcode As String = mymatch.Groups(1).Value.ToString
    MessageBox.Show(checkcode)
    Return checkcode
    End Function

    Ich müsste alle hidden Felder mit einbezogen haben.
    Ich versteh nicht warum der mir immer die Fehlermeldung ausgibt.
    Help pl0x :>.

  2. #2
    Tron
    Registriert seit
    25.12.2008
    Beiträge
    834

    Standard

    was willst den genau machen?
    passwörter knacken?

  3. #3
    Trojaner
    Registriert seit
    30.10.2008
    Beiträge
    85

    Standard

    Ich möchte mich gerne über den Webclient in Schuelervz einloggen.

  4. #4
    Bad Times Virus Avatar von DeXTer
    Registriert seit
    11.03.2007
    Beiträge
    627

    Standard

    Muss es zwangsläufig per Webclient sein?

    Sonst könntest ja auch über nem Webbrowser im Hintergrund laufen lassen!?
    currently programer in => VB.net






  5. #5
    NoClose Wurm
    Registriert seit
    15.08.2008
    Beiträge
    166

    Standard

    Zitat Zitat von simon1410
    was willst den genau machen?
    passwörter knacken?
    omfg -.-

  6. #6

    Standard

    Mhnn... ein tolles Hobby Ich glaube da kann dir keiner weiter Helfen^^

    --
    ♥ I HOE SOON THE WHOLO WORLD ♥

  7. #7
    Anfänger
    Registriert seit
    13.11.2008
    Beiträge
    10

    Standard

    also per webbrowser waere es wesentlich einfacher

    Code:
    webbroser1.document.getelementbyid.innertext("textbox id von nick steht im quelltext von SVZ")
    webbroser1.document.getelementbyid.innertext("textbox id von passwort steht im quelltext von SVZ")
    webbrowser1.document.forms(0).invokemember("submit")
    so in etwa war das glaub ausm kopf ist es nciht so leicht XD
    Geändert von FR3AK (22.01.2009 um 19:45 Uhr) Grund: fehler im script

    Code:
    Dim Idiot As String

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •