[TechniqueGott]

I made a really simple autoclicker and now I want to make it that whenever I press f3 it starts and f4 it stops.

This is my code:

Public Class Form1
Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwwExtraInfo As Long)
Private Const mouseclickup = 4
Private Const mouseclickdown = 2
Dim test As Integer
Private Sub BtnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
Click.Start()
End Sub

Private Sub BtnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
Click.Stop()

End Sub

Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
test = test + 1
Counter.Text = test
End Sub

Private Sub Click_Tick(sender As Object, e As EventArgs) Handles Click.Tick
mouse_event(mouseclickdown, 0, 0, 0, 0)
mouse_event(mouseclickup, 0, 0, 0, 0)
End Sub
End Class

[OffCode]

Code

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Integer

Code

Sub start()
        If GetAsyncKeyState(Keys.Space) Then
             'Do Something

End If
End Sub

[TechniqueGott]

Code

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Integer

Code

Sub start()
        If GetAsyncKeyState(Keys.Space) Then
             'Do Something

End If
End Sub

Thanks!