Hi Liebe VBler ich habe ein Video auf YouTube gefunden und wollte es nachmachen weil ich ja immer noch an meinem Projekt dran bin das sich ein Programm einloggen soll und die Daten korrigieren soll ob die richtig oder falsch sind, da bin ich auf das Video gestoßen das heißt: "How To Login Into Simple Website Using VB.Net(Account Checker Series Part 1)" habe den Code nach geschrieben aber er funktioniert nicht, kann es sein das die Codes veralten oder so ?
Der Code den ich nachgeschrieben habe:
Der Code sollte eigentlich die Login Daten überprüfen durch die Ausgabe des Labels bestätigt er es mir ob die Daten gehen oder nicht, aber das Programm bzw der Code sagt ganze zeit geht nicht also "bad" .. ich komme nicht weiter kann mir da vielleicht jemand weiter helfen
LG getsha
Der Code den ich nachgeschrieben habe:
VB.NET-Quellcode
- Using reg As New HttpRequest
- reg.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/85.0.4183.83 Safari/537.36 OPR/71.0.3770.138"
- reg.Cookies = New CookieDictionary(False)
- reg.Proxy = Nothing
- reg.IgnoreProtocolErrors = True
- reg.AllowAutoRedirect = True
- reg.AddParam("email", TextBox1.Text)
- reg.AddParam("password", TextBox2.Text)
- Dim respo As String = reg.Post("https://adfoc.us/session/create").ToString
- RichTextBox1.Text = respo
- If respo.Contains("This Month's Earnings") Then
- Label1.Text = "Good"
- Label1.ForeColor = Color.Green
- Else
- Label1.Text = "Bad"
- Label1.ForeColor = Color.Red
- End If
- End Using
Der Code sollte eigentlich die Login Daten überprüfen durch die Ausgabe des Labels bestätigt er es mir ob die Daten gehen oder nicht, aber das Programm bzw der Code sagt ganze zeit geht nicht also "bad" .. ich komme nicht weiter kann mir da vielleicht jemand weiter helfen
LG getsha
Public Signatur
Dim Mfg As Mit freundlichen grüßen
Dim Getsha As User.Getsha
Mfg.Getsha()
End Signatur
Dim Mfg As Mit freundlichen grüßen
Dim Getsha As User.Getsha
Mfg.Getsha()
End Signatur