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
[Only registered and activated users can see links. Click Here To Register...]
Doppelklick auf die Form (Form1).
'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
[Only registered and activated users can see links. Click Here To Register...]
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:
[Only registered and activated users can see links. Click Here To Register...]