Code:
Public Class Anti_Afk_Bot
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkeys As Long) As Integer
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
hotkey1 = GetAsyncKeyState(Keys.F11)
hotkey2 = GetAsyncKeyState(Keys.F12)
If hotkey1 = True Then
Timer2.Start()
End If
If hotkey2 = True Then
Timer2.Stop()
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.Keyboard.SendKeys("{w}")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer2.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer2.Stop()
End Sub
Und die hotkeys gehen nicht beim spammer gehen die hier aber nicht
Bitte helft mir lg algaten






