[Tutorial] How to make a Spammer with Hotkeys

xxfabbelxx · 04/24/2010, 20:17

Dann wäre dann noch das Problem dass der Spammer nicht in Warrock gehen wird

Bei mir auf jedenfall nicht.

Win 7 64 Bit

Cash² · 04/24/2010, 20:18

Quote:

Originally Posted by xxfabbelxx

Dann wäre dann noch das Problem dass der Spammer nicht in Warrock gehen wird

Bei mir auf jedenfall nicht.

Win 7 64 Bit

Er funktioniert, blos die Hotkeys gehen nicht auf 64 Bit Systemen.

Hotkeys + 64 Bit System, dann musste wohl C++ zum Spammer coden nehmen.

~~StaR.'~~ · 04/24/2010, 20:21

Quote:

Originally Posted by Cash²

Er funktioniert, blos die Hotkeys gehen nicht auf Windows7.

Hotkeys + Windows7, dann musste wohl C++ zum Injector coden nehmen.

injector??? du meinst spammer oder^^
und ja die normlane spammer ohne hotkeys gehen einwandfrei

Cash² · 04/24/2010, 20:25

Quote:

Originally Posted by elit3h@ck3r

injector??? du meinst spammer oder^^
und ja die normlane spammer ohne hotkeys gehen einwandfrei

Habs verbessert.

ihouse · 04/30/2010, 12:58

vielen dank kollege!!!

Inqlorius · 05/01/2010, 09:11

Spammer mit HotKeys sind ja im Grunde unter C++ einfach.. Und der Spammer geht auf 64Bit Systemen aber nicht mit den HotKeys..

~~theit123~~ · 05/01/2010, 11:34

Gab es nicht so ein TuT von aless ? Sry wenn ich mich irre...

Angeldust™ · 05/01/2010, 11:35

Das ist das TUT von einem Spamer ohne Hotkey´s soweit ich weiss

Cash² · 05/01/2010, 11:57

Quote:

Originally Posted by theit123

Gab es nicht so ein TuT von aless ? Sry wenn ich mich irre...

Stimmt schon, so ein ähnliches Tutorial gab es von Aless. Nur in diesem sind die Hotkeys enthalten und ich informiere über die Eigenschaften/ das Eigenschaftsfenster.
Bzw. das hier ist Anfängerfreundlich.

Quote:

Originally Posted by xXAngeldustXx

Das ist das TUT von einem Spamer ohne Hotkey´s soweit ich weiss

Ja, genau.

Pizza Süß Sauer · 05/30/2010, 11:29

#moved

~~RusseAufErden=)~~ · 06/08/2010, 09:38

Quote:
Originally Posted by Cash²
©Copyright by Cash²
Don´t Copy!

ENGLISH VERSION COMING SOON
Anfängerfreundlich!

Benötigt wird:

Visual Basic 2008

Vorgehensweise:

1. ~ einfachen Spammer erstellen ~
2. ~ Design anpassen ~
3. ~ Hotkeys einbauen ~

Was soll ich aus diesem Tutorial mitnehmen?
- Arbeiten mit den Eigenschaften
- Spammer erstellen können
- Hotkeys einbauen

____________________________________

Kurze Anmerkung:

' = Kommentar

Kleinigkeiten wie Neues Projekt erstellen, arbeiten mit Eigenschaftsfenster verpacke ich in Spoiler.

1. ~ einfachen Spammer erstellen ~

Neues Projekt

Spoiler

Eigenschaftsfenster:

Spoiler

1. Name für die Form
2. Form ändern
3. Background / Hintergrund einrichten
4. ControlBox ändern
5. Icon einrichten

1.

Spoiler

2.

Spoiler

Im Eigenschaftsfenster unter FormBorderStyle

-Sizable
-FixedToolWindow
-SizableToolWindow
-None
-FixedSingle
-Fixed3D
-FixedDialog

Für einen Spammer würde ich FixedSingle nehmen, könnt ihr aber selbst entscheiden. Einfach mal ausprobieren und schauen wie es aussieht.

3.

Spoiler

Im Eigenschaftsfenster unter Background könnt ihr die Hintergrundfarbe einstellen, aber ich möchte jetzt auf BackgroundImage eingehen.

Unter BackgroundImageLayout könnt ihr dieses Bild anpassen.
(Tile, Center, Stretch, Zoom, None)

4.

Spoiler

ControlBox = Die obere Leiste der Form Minimieren, Maximieren, (X) Schließen.
Indem ihr diese auf false stellt, könnt ihr die drei genannten Funktionen ausblenden.

Unter Minimize, Maximize könnt ihr einzelne ausschalten und die Größe anpassen.

5.

Spoiler

Eigenschaftsfenster > Icon > Beispiel; WarRock Ordner

5.1: Obere Leiste; Projekt > Neues Projekt für ....
Nun öffnet sich ein neues Fenster

Wir erstellen einen Spammer mit 5 Textboxxen.
Spoiler
Nun brauchen wir aus der Toolbox folgende Dinge:

5 Timer
6Textboxxen und 1 Label

Diese sollten dann so benannt und platziert sein.

Schritt2: Jetzt gehen wir zum Code

Doppelklick auf den Timer1.
Code:
SendKeys.Send(TextBox1.Text) 
SendKeys.Send("{ENTER}")

Timer1.Stop()
Timer2.Start()
Das heißt: Sende den Text aus der Textbox1 (ENTER, damit der text gesendet wird)

Timer1 stoppt und Timer2 startet.

Doppelklick auf Timer2.
Selbes Spiel
Code:
SendKeys.Send(TextBox2.Text) 
SendKeys.Send("{ENTER}")

Timer2.Stop()
Timer3.Start()
Das heißt: Sende den Text aus der Textbox2 (ENTER, damit der text gesendet wird)

Doppelklick auf Timer3.
Code:
SendKeys.Send(TextBox3.Text) 
SendKeys.Send("{ENTER}")

Timer3.Stop()
Timer4.Start()
Das heißt: Sende den Text aus der Textbox3 (ENTER, damit der text gesendet wird)

Doppelklick auf Timer4.
Code:
SendKeys.Send(TextBox4.Text) 
SendKeys.Send("{ENTER}")

Timer4.Stop()
Timer5.Start()
Das heißt: Sende den Text aus der Textbox4 (ENTER, damit der text gesendet wird)

Doppelklick auf Timer5.
Code:
SendKeys.Send(TextBox5.Text) 
SendKeys.Send("{ENTER}")

Timer5.Stop()
Timer1.Start()
Das heißt: Sende den Text aus der Textbox5 (ENTER, damit der text gesendet wird)

Sieht bis jetzt dann so aus

Jetzt Start/Stop Button.

Doppelklick Start Button.
Code:
Timer1.Start
Timer1.interval = textbox6.text
Das heißt: Timer1 soll starten, also Spamm fängt an. Timer1.Interval = textbox6.text d.h. die Geschwindigkeit wird durch die 6. Textbox gesteuert, also gibt man dort 1000 ein, dies entspricht einer Sekunde.

Doppelklick Stop Button.

Wir wollen das nicht mehr gespammt wird, dafür müssen die Timer gestoppt werden.
Code:
Timer1.stop
Timer2.stop
Timer3.stop
Timer4.stop
Timer5.stop
Zwischenergebnis:

Soweit sind wir dann fertig.

Weiter mit dem Designen!
2. ~ Design anpassen ~

Spoiler

Ich habe das Eigenschaftsfenster bereits erklärt (siehe Anfang), damit könnt ihr eure Form verschönern, anpassen ...
Das macht ihr jetzt auch.

Beispiel:

Jetzt seit ihr fertig mit einem Spammer (noch ohne Hotkeys).

Es ist klug wenn man zwischendurch mal auf "Debuggen" klickt oder auf das grüne Play Zeichen oben in der Leiste drückt, dann kann man vorher schon seine Fehler oder die Funktionalität feststellen.

Wir wollen daraus eine EXE Datei machen.
Vorerst "Alle Speichern".

Nach dem Speichern, erstellen wir die EXE

Fertig bis jetzt.
Fortsetzung; Hotkeys

3. ~ Hotkeys einbauen ~
Spoiler
Ich gehe davon aus, dass ihr einen Spammer vor euch habt.
Dieser Teil, ist der auf den ich eigentlich hinaus wollte.

Dafür brauchen wir einen zusätzlichen Timer, d.h.
Toolbox > Timer

1Klick auf den Timer und ändert in den Eigenschaften:
von false auf true

Doppelklick auf die Form (Form1).
Code:
Timer6.start
'Es ist nicht immer timer6, nur in diesem Beispiel.

Weiter.

Über den Code, der Form1 kommt das:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer
Als Bild besser verständlich

Jetzt legen wir die Hotkeys fest.

Doppelklick auf den Timer6 (oder euren festgelegten).
Code:
Dim hotkey1 As Boolean
        Dim hotkey2 As Boolean
        Dim hotkey3 As Boolean

        hotkey1 = GetAsyncKeyState(Keys.F12)
        hotkey2 = GetAsyncKeyState(Keys.F11)
        hotkey3 = GetAsyncKeyState(Keys.F10)
'Hier könnt ihr die Tasten einstellen,festlegen.

'Wir wollen nun das bei F12 der Spammer startet, F11 stoppt und bei F10_ soll sich die Anwendung schließen.
Code:
If hotkey1 = True Then
            Timer1.Start()
            Timer1.interval = textbox6.text
            Timer2.interval = textbox6.text
            Timer3.interval = textbox6.text
            Timer4.interval = textbox6.text
            Timer5.interval = textbox6.text
        End If
'Wenn hotkey1 (in dem Fall F12) gedrückt wird(true), dann(then) soll Timer1_
gestartet werden und wir legen noch die Geschwindigkeit fest._ (Timerx.interval = textboxY.text)
Code:
If hotkey2 = True Then
            Timer1.Stop()
            Timer2.Stop() 
            Timer3.Stop()
            Timer4.Stop()
            Timer5.Stop()
       End If
'Wenn hotkey2 (F11) gedrückt wird (true), dann (then) soll er aufhören zu spammen und alle Timer von 1-5 gestoppt werden.

Kommen wir zum letzten.
Ganz einfach.
Code:
If hotkey3 = True Then
            Me.Close()
        End If
'Wenn hotkey3 (F10) gedrückt wird(true), dann (then) soll sich die ganze Anwendung schließen(me.close).

Screen:
Dieses Tutorial könnt ihr auch zum Nachschlagen von Einzelheiten benutzen.

Mit freundlichen Grüßen
Cash²

EM das mit den TImern: Wen ich Doplleklick auf Timer 1 mache soll cih den Code der Da schon Steht löschen? und dann den neuen EInfügen?

Quael · 06/08/2010, 13:06

Quote:

Originally Posted by RusseAufErden=)

EM das mit den TImern: Wen ich Doplleklick auf Timer 1 mache soll cih den Code der Da schon Steht löschen? und dann den neuen EInfügen?

Nein der komplette code sieht in etwa so aus(ich habs nur mit einer TextBox gemacht, dafür werden Zeichen hinzugefügt, die im wechsel kommen):

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer

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

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If wechsel = 0 Then
            My.Computer.Keyboard.SendKeys(TextBox1.Text)
            My.Computer.Keyboard.SendKeys("{Enter}")
            wechsel = 1
        ElseIf wechsel = 1 Then
            My.Computer.Keyboard.SendKeys(">" & TextBox1.Text & "<")
            My.Computer.Keyboard.SendKeys("{Enter}")
            wechsel = 0
        End If
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim hotkey1 As Boolean
        Dim hotkey2 As Boolean
        Dim hotkey3 As Boolean

        hotkey1 = GetAsyncKeyState(Keys.F12)
        hotkey2 = GetAsyncKeyState(Keys.F11)
        hotkey3 = GetAsyncKeyState(Keys.F10)

        If hotkey1 = True Then
            MsgBox("Spammer Stop", MsgBoxStyle.Information, "Information")
            Timer1.Enabled = False
        End If
        If hotkey2 = True 
            MsgBox("Spammer Start", MsgBoxStyle.Information, "Information")
            Timer1.Enabled = True
        End If
        If hotkey3 = True Then
            Me.Close()
        End If

    End Sub

Wenn du den Form-Designer siehst, ganz am Anfang, musst du nur F7 drücken und du kommst in das Codefenster. Da fügst du diesen Code ein. Musst dann halt deinen Spammer in etwa so aufbauen wie ich oder du verwendest die Codeteile von Cash². Wichtig auch an alle gerichtet. Man muss, um die Hotkeys zu aktivieren den Timer, der dafür zuständig ist, im Form-Designer bei Enabled auf True setzen, und am besten den interval auf 10, denn der Timer fragt immer nur in einem bestimmten schnelligkeit ab ob die Taste gedrückt wird. Also schnellen Timer, damit auch oft von ihm nachgefragt wird.

~Quael

Variable_X · 06/08/2010, 14:45

Quote:

Originally Posted by RusseAufErden=)

EM das mit den TImern: Wen ich Doplleklick auf Timer 1 mache soll cih den Code der Da schon Steht löschen? und dann den neuen EInfügen?

Im Timer Event legst du fest, was nach starten des Buttons passieren soll.
In dem Fall

Code:

SendKeys.Send(Textbox1.Text)
SendKeys.Send("{ENTER}")

Timer1.Stop
Timer2.Start

Sende den Text der Textbox1 (ENTER).
Timer1 ist fertig und Timer2 startet, aufs Programm bezogen wird nun der Text der zweiten Textbox gesendet.