[Help] My Hotkeys aren't working!
[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
It looks just right but it just doesn't work. Can somebody help me?
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
Code:
If startkey = True Then
Timer1.Start()
Label3.Text = "Running"
Label3.ForeColor = Color.Green
End If
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.
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
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
Similar Threads
- 9Last post
- 5Last post
- 24Last post
- 26Last post
- 13Last post