Hallo Leute, habe gerade ein bisschen Zeit und wollte euch heute was in VisualBasic beibringen :). Es geht um einen stinknormalen einfachen Spammer.
1.: Einleitung
2.: Bausteine
3.: Das eigentliche Proggen.
4.: Code Erklärungen
5.: Schlußwort
○2 Labels
○1 RichtextBox
○1 Buttons
○1 NummericUpDown
○bei Zusatzfunktionen, ggf. mehr!
Labels für Beschriftungen (Anzahl, Nachricht); Button zum Starten; NummericUpDown für die Anzahl; RichTextBox für die Nachricht.
Am Anfang müssen wir System.Threading importieren, da wir eine kleine Pause mit rein bekommen möchten:
Danach schreiben wir das in den StartButton:
Das ist der Hauptteil einen Spammer zu schreiben, man kann natürlich noch Delays (pausen) zwischen dem Senden setzten, dies interessiert uns aber jetzt noch nicht :P.
Hier wird unsere Variable als Zahl deklariert.(Integer = Zahl)
Wie die Meisten wahrscheinlich entnehmen können, hier wird das Programm 'eingefriert' für 1000ms = 1Sekunde.
Diesen Teil werden wir Aufteilen:
Das Programm macht die Anweisung solange hintereinander bis unsere Variable Dummy = der Anzahl des NummericUpDown ist.
Dort ist die eigentliche Aufgabe:
- Der Dummy wird plus 1 addiert.
- SendKeys.SendWait sendet den Text aus der RichTextbox, vbCrLf sendet die ENTER-Taste.
Das ist die MessageBox, wenn Dummy = 10 ist und der Spammer fertig ist.
Ich hoffe ich konnte euch helfen ;):confused::confused:
Inhalt:
1.: Einleitung
2.: Bausteine
3.: Das eigentliche Proggen.
4.: Code Erklärungen
5.: Schlußwort
1.Einleitung:
Jo. Mir ist bewusst, dass der Code übersichtlicher und auch anders vollstatten gehen kann, wie z.B.: mit einem Timer. Wir werden es über ein Integer, SendKeys und einer Do Until Schleife machen ;).2. Bausteine:
Zum Anfangen brauchen wir folgende Bausteine:○2 Labels
○1 RichtextBox
○1 Buttons
○1 NummericUpDown
○bei Zusatzfunktionen, ggf. mehr!
Labels für Beschriftungen (Anzahl, Nachricht); Button zum Starten; NummericUpDown für die Anzahl; RichTextBox für die Nachricht.
3. Das eigentliche Proggen:
Jetzt kommen wir zum eigentlichen Teil, dieses Tutorials, dem programmieren.Am Anfang müssen wir System.Threading importieren, da wir eine kleine Pause mit rein bekommen möchten:
Code:
Imports System.Threading
Code:
Dim dummy As Integer
Thread.Sleep("1000")
Do Until dummy = numAnz.Value
dummy += 1
SendKeys.SendWait(DeineTextBox.Text & vbCrLf)
Loop
MsgBox("Du hast es wahrscheinlich geschafft, einen Spammer zu proggn.")
4. Code-Erklärungen:
Code:
Dim dummy As Integer
Code:
Thread.Sleep("1000")
Code:
Do Until dummy = numAnz.Value
dummy += 1
SendKeys.SendWait(txtTxt.Text & vbCrLf & "bla.de" & vbCrLf)
Loop
MsgBox("feddich diggah!")
Code:
Do Until dummy = numAnz.Value
Code:
dummy += 1
SendKeys.SendWait(DeineTextBox.Text & vbCrLf)
Loop
- Der Dummy wird plus 1 addiert.
- SendKeys.SendWait sendet den Text aus der RichTextbox, vbCrLf sendet die ENTER-Taste.
Code:
MsgBox("Du hast es wahrscheinlich geschafft, einen Spammer zu proggn.")
5. Schlußwort:
In diesem schnellen Tutorial habe ich euch das Thema Spammer näher gebracht. Ich denke, wenn ihr schon fortgeschritten in Vb seit, könnt ihr euren eigenen Spammer mit vielen weiteren Funktionen ausstatten. ;) Mir ist klar, das es auch mit Timern geht, jedoch wollte ich auch mal was anderes zeigen. Für alle die, die jetzt sagen, das das Tutorial mist ist, oder so, brauchen es nicht zu posten, seit froh, dass es wer macht, ich habe auch nicht ewig Zeit!Ich hoffe ich konnte euch helfen ;):confused::confused: