Moinsen Leute,
Ich habe ein Problem und zwar ich habe ein Video gefunden das habe ich nachgemacht so wie im Video paar Sachen aber abgeändert weil der Login nicht funktionierte und ich auch gerade nicht mehr weiter komme weil habe schon so viel verändert aber es will einfach nicht funktionieren und ich weiß einfach nicht warum, weshalb ich jetzt hier ein Thema erstelle und auf Antworten und Erklärungen hoffe. Vorab schonmal danke an jeden Helfer!
also es geht sich darum das mein Programm was zwei TextBoxen und ein Button hat fürs Anmelden..
Das Video:
Mein Source:
Spoiler anzeigen
Ich hoffe ihr konntet alles so bisher verstehen wie ich es gerne hätte haben wollen.
Ich habe ein Problem und zwar ich habe ein Video gefunden das habe ich nachgemacht so wie im Video paar Sachen aber abgeändert weil der Login nicht funktionierte und ich auch gerade nicht mehr weiter komme weil habe schon so viel verändert aber es will einfach nicht funktionieren und ich weiß einfach nicht warum, weshalb ich jetzt hier ein Thema erstelle und auf Antworten und Erklärungen hoffe. Vorab schonmal danke an jeden Helfer!
also es geht sich darum das mein Programm was zwei TextBoxen und ein Button hat fürs Anmelden..
Das Video:
Mein Source:
VB.NET-Quellcode
- Imports System.Text.RegularExpressions
- Imports System.Threading
- Imports xNet
- Public Class Form1
- Public Sub New()
- InitializeComponent()
- Control.CheckForIllegalCrossThreadCalls = False
- End Sub
- Public Sub Login()
- Using req As New HttpRequest
- req.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:109.0) Gecko/20100101 Firefox/114.0"
- req.Cookies = New CookieDictionary(False)
- req.Proxy = Nothing
- req.IgnoreProtocolErrors = True
- req.AddParam("email", tmail.Text)
- req.AddParam("password", Tpass.Text)
- Dim respo As String = req.Post("https://adfoc.us/session/create").ToString
- If respo.Contains("Logout") Then
- Dim SA As Match = Regex.Match(respo, "<strong>Total Earnings:</strong>(.*?)<br/>")
- Label3.Text = "Total Earning = " & SA.Groups(1).Value
- MsgBox("Login Done!", MsgBoxStyle.Information)
- Else
- MsgBox("Login Or Password Incorrect", MsgBoxStyle.Critical)
- End If
- End Using
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim IH As New Thread(AddressOf Login) : IH.Start()
- End Sub
- End Class
Ich hoffe ihr konntet alles so bisher verstehen wie ich es gerne hätte haben wollen.
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