[Help] My Hotkeys aren't working!

Before someone tells me to use search, I already did, and nothing helped.

So I have made an autoclicker but the hotkey in order to start it wont work, the one to stop it does work though. Heres the code I used for my hotkeys

Code:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        mouse_event(mouseclickdown, 0, 0, 0, 0)
        mouse_event(mouseclickup, 0, 0, 0, 0)
        Dim startkey As Boolean
        Dim stopkey As Boolean
        startkey = GetAsyncKeyState(Keys.F11)
        stopkey = GetAsyncKeyState(Keys.F12)
' Here is where it fails
        If startkey = True Then
            Timer1.Start()
            Label3.Text = "Running"
            Label3.ForeColor = Color.Green
        End If
        If stopkey = True Then
            Timer1.Stop()
            Label3.Text = "Stopped"
            Label3.ForeColor = Color.Red
        End If
    End Sub

It looks just right but it just doesn't work. Can somebody help me?

Code:

If startkey = True Then
            Timer1.Start()
            Label3.Text = "Running"
            Label3.ForeColor = Color.Green
        End If

don't tell the timer to do something within the timer, that's always asking for something bad to happen
also make sure it is enabled. it is turned off by default

Um... u have to add this under Public Class Form1

Code:

Private Declare Sub SetCursorPos Lib "User32" (ByVal x As Integer, ByVal y As Integer)

You don't need to do that for what i'm trying to do. And thanks travolta, didn't think that through. But then where do I put it? I tried all other places and form1_load and none of them work.

Originally Posted by poneboy00

You don't need to do that for what i'm trying to do. And thanks travolta, didn't think that through. But then where do I put it? I tried all other places and form1_load and none of them work.

HEREEEEEEEEEEEEEEEE you put it!
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

put it above the Private sub line. Make sure timer is enabled.Try using a different code for hotkeys like how i did it in my source code for a tapper
add this code to beggining

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer2.Enabled = True
    End Sub

[Help] My Hotkeys aren't working!

Similar Threads

Tags for this Thread