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
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.
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.
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".
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?
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.
Hilfee Spammer mit hotkeys.. Hilffee 05/17/2010 - WarRock - 2 Replies Also ich brauch hilfe Cash hoch 2 ;) hatte doch mal dieses tutorial mit How to make a spammer with hotkeys gepostet kann mir jemand den link dazu geben bitteee
Edit: kann geclosed werden hab es gefunden:
http://www.elitepvpers.com/forum/warrock/540050-tu torial-how-make-spammer-hotkeys.html
[Video-TuT] How to make a Spammer with Hotkeys 05/10/2010 - WarRock Hacks, Bots, Cheats & Exploits - 8 Replies WarRock - Spammer
Wer es ausführlicher und anfängerfreundlich haben will, schaut hier vorbei
http://www.elitepvpers.com/forum/warrock/540050-tu torial-how-make-spammer-hotkeys.html
Wichtig: Auf 64Bit Systemen funktioniert das nicht, aus welchem Grund weis ich nicht!
![[Tutorial] How to make a Spammer with Hotkeys](https://www.elitepvpers.com/forum/iconimages/warrock-guides-tutorials-modifications/tutorial-how-make-spammer-hotkeys_ltr.gif){kind=small}
