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 :>.
