4 Story Account Checker - komme nicht weiter

Fuyo

Hi,
ich arbeite gerade an einem simplen vb.net Account Checker.
Was klappt?!
Er loggt sich mit den Daten aus Textbox1 und Textbox2 erfolgreich ein.

Ich möchte nun , das wenn er sich erfolgreich eingeloggt hat Label3 von 0 auf 1 springt und wenn es nicht geht Label4 auf 1 springt.
Dies ist mir jedoch ein kleines Rätsel.
Desweiteren , gibt es in vb eine Funktion die beiden Textboxen mit inhalten aus einer .ini Datei oder w.e. zufüllen und das Programm probiert dann alle aus , die in den txt Datein oder w.e. stehn ?

Nun ja , mein Source Code , ja ist nicht gerade die Welt , aber es klappt :

Code

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://4story.de/user/login")
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("name").InnerText = TextBox1.Text
        WebBrowser1.Document.GetElementById("pwd").InnerText = TextBox2.Text
        WebBrowser1.Document.Forms(0).InvokeMember("submit")


        Timer1.Start()
    End Sub
End Class

Alles anzeigen

Hoffe ihr könnt mir weiterhelfen

internetfreak

[FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]Also ini gibts so nimmer in VB, so wurde es mir mal gesagt.
Müsstest da also ne eigene kalsse schreiben, oder wie mans nennt^^
Bin kein VB progger.
Aber Label kannste mit
Label1.Text = "xxx" ändern
Label1 natürlich durch den Namen des Labels ersetzen, den es im Code hat.
Soviel dazu, soltle funzen, fürn Rest musste auf andere warten, da kann ich dir nich viel weiterhelfen.

MfG
internetfreak[/SIZE][/COLOR][/FONT]

Fuyo

internetfreak , das mit Label1.Text = "xxx" war mir bekannt :)
Ich weiß auch ungefähr wie das sein müsste .
Webbrowser1.Documents.Innerhtml oder so , aber ich weiß es leider nicht mehr so genau und wenn bei 4story der Account funktioniert ändert sich oben die URL >.< bin gerade ein bisschen überfordert und das mit den listen mein ich halt so , das man einfach eine Liste mit Usernamen und PWs importieren kann und er die dann der Reihe nach durchgeht.
Ich hoffe das erklärt einiges , trotzdem Danke

Kaev

Das mit der Liste kannst du mit einer "For Each-Schleife" bewerkstelligen.
Werde dir morgen evtl. mal einen Beispielcode schreiben, bis dahin, viel Glück! (:

Fuyo

So , das mit dem einloggen habe ich jetzt so gelöst (sollte eig funzen ) jedoch erhöt er den Wert von 0 auf 1 nicht bei label 5 bzw 6 , hier mein aktueller Source :

Code

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("name").InnerText = TextBox1.Text
        WebBrowser1.Document.GetElementById("pwd").InnerText = TextBox2.Text
        WebBrowser1.Document.Forms(0).InvokeMember("submit")


        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim html As String = WebBrowser1.Document.All(1).OuterHtml


        If html.Contains("Bei der Anmeldung ist ein Fehler aufgetreten.Entweder war die Eingabe fehlerhaft oder der Account existiert nicht") Then
            Label6.Text += 1
        End If


        If html.Contains("Accountverwaltung") Then
            Label5.Text += 1
            WebBrowser1.Navigate("http://4story.de/user/login")
        End If


        Timer1.Stop()
    End Sub
End Class

Alles anzeigen

EDIT :
Hier ein Video, habe den Webbrowser auf Visible gestellt , mir fiel auf , er trägt die Benutzernamen Daten und Password richtig ein und drückt auch auf Einloggen , jedoch kommt dann die 4Story Register Page. WTF
Mhm , ich hoffe ihr wisst was ich falsch mache ... vllt doppelbelegung der IDs ? Das was ich da schreibe ist , nur das was ich hier gerade geschrieben habe :P

http://tinypic.com/player.php?v=2quoh02&s=5

Fuyo

EDIT:
So , was funktioniert jetzt ?!

- 4Story manuelles einloggen via Textbox1 u. Textbox2
- es wird angezeigt ob der Account True oder False ist , die gesamt Zahl der True und False Accounts wird auch aufgelistet.

Manuelles 4Story Account Checken funktioniert nun einwandfrei , mich interessiert nun nur noch , wie ich z.B. eine Textdatei für Benutzernamen und eine Textdatei für Passwörter importieren kann und das Programm geht diese dann durch.

Hier nochmal der Source :

Code

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://4story.de/user/login")
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("login[username]").InnerText = TextBox1.Text
        WebBrowser1.Document.GetElementById("login[password]").InnerText = TextBox2.Text
        WebBrowser1.Document.GetElementById("login[password]").Focus()
        SendKeys.Send("{ENTER}")
        SendKeys.Send("{ENTER}")
        
    End Sub


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim html As String = WebBrowser1.Document.All(1).OuterHtml


        If html.Contains("Nickname:") Then
            Label1.Text += 0.5
            WebBrowser1.Navigate("http://4story.de/user/login")
            Label3.Text = "Account funktioniert!"
        End If


        If html.Contains("Bei der Anmeldung ist ein Fehler aufgetreten.") Then
            Label2.Text += 0.5
            Label3.Text = "Account funktioniert nicht."
        End If
    End Sub
End Class

Alles anzeigen

4 Story Account Checker - komme nicht weiter

Jetzt mitmachen!

SCHNELLZUGRIFF

HILFE & COMMUNITY

RECHTLICHES