this a new code i dont know if that work
VB AFK bot code
If GetAsyncKeyState(Keys.F1) Then
If Label4.Text = "[OFF]" Then
Label4.Text = "[ON]"
Label4.ForeColor = Color.Green
'hack
afkbot.Start()
Exit Sub
End If
If Label4.Text = "[ON]" Then
Label4.Text = "[OFF]"
Label4.ForeColor = Color.Red
'normal
afkbot.Stop()
Exit Sub
End If
End If
Private Sub afkbot_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles afkbot.Tick
' AFK move section
Try
Interaction.AppActivate("crossfire")
My.Computer.Keyboard.SendKeys("W")
My.Computer.Keyboard.SendKeys("A")
My.Computer.Keyboard.SendKeys("S")
My.Computer.Keyboard.SendKeys("D")
Catch
End Try
End Sub
If GetAsyncKeyState(Keys.F1) Then
If Label4.Text = "[OFF]" Then
Label4.Text = "[ON]"
Label4.ForeColor = Color.Green
'hack
afkbot.Start()
Exit Sub
End If
If Label4.Text = "[ON]" Then
Label4.Text = "[OFF]"
Label4.ForeColor = Color.Red
'normal
afkbot.Stop()
Exit Sub
End If
End If
Private Sub afkbot_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles afkbot.Tick
' AFK move section
Try
Interaction.AppActivate("crossfire")
My.Computer.Keyboard.SendKeys("W")
My.Computer.Keyboard.SendKeys("A")
My.Computer.Keyboard.SendKeys("S")
My.Computer.Keyboard.SendKeys("D")
Catch
End Try
End Sub


