[HowTo]VB6-Spammer

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • [HowTo]VB6-Spammer

      Wer will kann sich das Tutorial auch runterladen
      Tutorial in HTML (Uploaded.to Mirror)



      [SIZE="4"][COLOR="Orange"]Um was geht es hier?[/COLOR][/SIZE]
      Hier lernst du wie du in Visual Basic 6 (vll. auch 2008, weiß grad nicht ob es da gleich ist) einen voll funktionstüchtigen Spammer wo du sogar die Zeit zwischen den Nachrichten einstellen kannst!

      [COLOR="orange"][SIZE="4"]Was brauche ich dafür?[/SIZE][/COLOR]
      Visual Basic 6
      Eine Tastatur
      Hände Oo

      [COLOR="orange"][SIZE="4"]Schritt 1[/SIZE][/COLOR]
      [COLOR="orange"][SIZE="4"]Das erstellen und das Aussehen der .EXE[/SIZE][/COLOR]
      Öffne dein Visual Basic 6 und erstelle eine neue Standart EXE.

      [COLOR="orange"][SIZE="4"]Komponente (Extras) hinzufügen[/SIZE][/COLOR]
      Ihr geht auf Projekt -> Komponenten -> Sucht in der großen Liste "Microsoft Rich Textbox Control 6.0 (SP4) -> Klickt auf das kleine eckige Kästchen mit der verlockenden weißen Fläche das ein schöner schwarzer Harken hineinkommt! Klickt dann auf Übernehmen und dann auf OK!
      Fertig mit Schritt 1! Das habt ihr Prima gemacht! ... Nein... habt ihr doch nicht, das war einfach!



      ACHTUNG: Bitte KEINE normale Textbox nehmen, funktioniert in VB6 nicht.

      Formt euch ein Fenster in der gewünschten Größe!

      Ihr klickt jetzt links auf dieses Symbol: , das ist eure "Richtextbox" (Ohne die ") die ihr vorhin hinzugefügt habt, wenn ihr die nicht findet, schaut ob ihr Schritt 1 richtig gemacht habt.

      Platziert verwahrlost 2 Richtextboxen , 2 Labels darüber, 1 Timer und 3 Button.
      Den Timer wird man später im Programm NICHT sehen.
      Klickt auf den Timer.
      Rechts im Fenster sollte jetzt Enabled True stehen, klickt auf True und ändert es auf False um.
      Das sieht dann zum Beispiel so aus:

      Wenn ihr die Schrift in den Labels ändern wollt, klickt auf euren gemachten Label und ändert rechts im Menü den Text bei Caption.
      Genauso geht das auch Buttons.
      Bei den Richtextboxen steht da statt Caption Text.

      [COLOR="orange"][SIZE="4"]Dauert das Tutorial noch lange?[/SIZE][/COLOR]
      [COLOR="orange"][SIZE="4"]Wie sieht es bis jetzt ungefähr aus??[/SIZE][/COLOR]
      Ein wenig dauert es noch... :P

      Momentan sind wir so weit:


      [COLOR="orange"][SIZE="4"]Der Code[/SIZE][/COLOR]
      Ihr klickt jetzt rechts in dem weißen Feld auf Form 1 mit dem Rechtsklick und klickt dann auf Code anzeigen.
      Jetzt haben wir ein Fenster wo wir etwas reinschreiben können.
      Dort schreiben wir nun folgendes rein:

      Quellcode

      1. Private Sub Command1_Click()
      2. Timer1.Enabled = True
      3. End Sub
      5. Private Sub Command2_Click()
      6. Timer1.Enabled = False
      7. End Sub
      9. Private Sub Command3_Click()
      10. Timer1.Interval = RichTextBox2.Text
      11. End Sub
      13. Private Sub Timer1_Timer()
      14. SendKeys RichTextBox1.Text
      15. SendKeys "{ENTER}"
      16. End Sub
      Alles anzeigen


      [COLOR="orange"][SIZE="4"]Was bedeutet was in diesem Code?[/SIZE][/COLOR]
      In diesem Code wird steht was passiert wenn man auf den Button (Command1) klickt.
      In diesem Falle bedeutet es, dass wenn man auf Command1 klickt, das der Timer1 angeht.
      Das erkennt man an Timer1.Enabled = True

      Quellcode

      1. Private Sub Command1_Click()
      2. Timer1.Enabled = True
      3. End Sub


      Hier ist es das gleiche wie oben, bloß für Command2!
      In diesem Falle bedeutet es, dass wenn man auf Command1 klickt, das der Timer1 ausgeht.
      Das erkennt man an Timer1.Enabled = False

      Quellcode

      1. Private Sub Command2_Click()
      2. Timer1.Enabled = False
      3. End Sub


      Wenn man jetzt auf den Command3 klickt, das die Zeit (Interval) zwischen den Nachrichten auf die Zahl gestellt wird, die in RichTextBox2 eingegeben wird.

      Quellcode

      1. Private Sub Command3_Click()
      2. Timer1.Interval = RichTextBox2.Text
      3. End Sub


      Hier wird deklariert, was der Timer1 machen soll, also die Funktion!
      SendKeys sendet die Infos an den PC, damit er weiß das er folgendes eingeben soll.
      SendKeys "{ENTER}" bedeutet das er Enter drücken soll.

      Quellcode

      1. Private Sub Timer1_Timer()
      2. SendKeys RichTextBox1.Text
      3. SendKeys "{ENTER}"
      4. End Sub


      So sieht dann der komplette Code aus:

      Quellcode

      1. Private Sub Command1_Click()
      2. Timer1.Enabled = True
      3. End Sub
      5. Private Sub Command2_Click()
      6. Timer1.Enabled = False
      7. End Sub
      9. Private Sub Command3_Click()
      10. Timer1.Interval = RichTextBox2.Text
      11. End Sub
      13. Private Sub Timer1_Timer()
      14. SendKeys RichTextBox1.Text
      15. SendKeys "{ENTER}"
      16. End Sub
      Alles anzeigen


      [COLOR="orange"][SIZE="4"]Letzte Schritte[/SIZE][/COLOR]
      Wenn ihr alles richtig gemacht habt, müsste euer Programm jetzt funktionieren.
      Drückt F5 und probiert es aus!

      So sieht das ganze dann aus, ich habe die RichTextBoxen und die Button makiert, damit ihr wisst was was ist.


      MfG
      Kaev!

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Rumet;61858 schrieb:

      Finde das Tutorial gut gelungen obwohl es schon sehr viel Text ist nur für ein Flooder.



      Natürlich geht auch ne stinknormale Textbox.


      Naja, eigendlich ist es ja wenig Text, ich hätte ihn auch noch um ein paar Funktionen vergrößern können. o:


      Ich habs mit einer Textbox probiert, hat bei mir komischerweise nicht funktioniert.