[VB.net] Account Checker

Hi Ladies, heute erkläre ich euch wie ihr einen Account Checker codet:

Ersteinmal braucht eure Form folgendes:

1 Button

2 Texboxen

1 Webbrowser

1 Label

Nun klickt ihr Doppelt auf die Form, so dass ihr im Codeabschnitt

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

seid.Hier kommt als erstes der Befehl

Webbrowser1.Navigate(”Die-URL-Die-Du-Prüfen-Willst.de/login.asp”)

Damit “navigieren” wir den Webbrowser zu der gewünschten Seite.In meinem Beispiel werde ich einfach mal GoogleMail verwenden.Hier ist es:

https://www.google.com/accounts/ServiceLoginAuth?service=mail

Doppelklick auf den Button -> Hier wird noch folgendes eingefügt

Dim code As String = Webbrowser1.Document.All(0).OuterHtml ( Dazu später mehr)

Schauen wir uns einmal den Quelltext dieser Seite an und “scannen” ihn (Strg + F [Firefox]) auf “input”.

Nun kommen irgendwann die Codezeilen:

(gekürzt)

Wie ihr erahnt handelt es sich hierbei um das Eingabe feld für die Email.Besonders wichtig für uns ist nun erstmal die id, in diesem Fall “Email”.Schauen wir weiter im Code nach dem Passwort, sehen wir die Codezeile:

Hierbei ist wieder die ID für uns wichtig, in diesem Falle “Passwd”.

Nun haben wir unseren Webbrowser auf die Seite navigiert und wissen, dass wir die Felder “Email” und “Passwd” füllen wollen.Beginnen wir mit dem Füllen.

Dazu verwenden wir den Befehl:

WebBrowser1.Document.All(”Email”).SetAttribute(”value”, TextBox1.Text)

Wie ihr sicher herausfiltern könnt, wird das Feld “EmaiL” mit dem Inhalt der Textbox1 gefüllt.Textbox1 = Accountname bzw. Emailadresse.Das selbe nun mit dem Passwort:

WebBrowser1.Document.All(”Passwd”).SetAttribute(”value”, TextBox2.Text)

Hierbei wieder, Feld mit dem Namen “Passwd” wir mit dem Inhalt der Textbox2 gefüllt.

Nun sind wir schon so weit, dass unsere beiden Boxen ausgefüllt werden.Aber nun müssen wir auch den Button zum einloggen Drücken, dazu suchen wir nach dem Button, in dem wir den Quellcode nach “submit” absuchen.

In meinem Falle kommt dann irgendwann die Codezeile:

Gut, nun wissen wir Name=”signIn”.Doch wie klicken wir diesen Button an, ganz einfach mit diesem Befehl:

WebBrowser1.Document.All(”signIn”).InvokeMember(”Click”)

Damit werden wir nun in den Account eingeloggt.Wenn denn Username + Passwort stimmen.

Sollte dies der Fall sein sind wir ja in dem Account, sollte dies nicht der Fall sein, bekommen wir eine Fehlermeldung, bei Google diese:

Der eingegebene Benutzername oder das Passwort ist falsch. [?]

Diese Textzeiel wird höchstwahrscheinlich nicht im eingeloggten Account angezeigt, also geben wir dem Programm, dass Label anzupassen.Und das geht so:

If code.Contains(”Der eingegebene Benutzername oder das Passwort ist falsch.”) Then

‘Überprüfen ob der HTML Text den Content enthält.

Label1.Text = “Falsche Accountdaten”

‘Falls ja “Label1″ mit dem richtigen Text füllen.

Else

‘Falls nicht:

Label1.Text = “Accountdaten korrekt!”

‘Sind die Accountdaten richtig und es wird auch so angezeigt

End If

Im Anschluss kommt wieder der Befehl:

WebBrowser1.Navigate(”https://www.google.com/accounts/ServiceLoginAuth?service=mail”)

Damit man sofort den nächsten Account überprüfen kann, verstanden?

Hoffe ich habe nichts vergessen, falls es Unklarheiten gibt.Einfach schreiben!

Blitzkrieg

PS: Die Form ist auf dem Screen nur so groß, damit ihr im Debug auch sehen könnt ob alles funktioniert.