[Help] AutoClicker hotkey.
[Help] AutoClicker hotkey.
I've got a big problem with the hotkeys on my autoclicker, If anyone could help me, just PM for the full code.
When I press the start hotkey, nothing happens, but when I press the stop hotkey it stops (When its running)
I'll only accept give my full code to trusted members.
When I press the start hotkey, nothing happens, but when I press the stop hotkey it stops (When its running)
I'll only accept give my full code to trusted members.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = TextBox1.Text * 1000 + TextBox2.Text
AutoClick()
If GetAsyncKeyState(Keys.F5) Then
Timer1.Start()
End If
If GetAsyncKeyState(Keys.F6) Then
Timer1.Stop()
End If
End Sub
first of all make two timers, make the first timer interval "1" and then add this code
on the second timer add your code that does something
Code:
Dim F5key As Boolean
Dim F6key As Boolean
F5key = GetAsyncKeyState(Keys.F5)
F6key = GetAsyncKeyState(Keys.F6)
If F5key = True Then
'your code here to start other timer
End If
If F6key = True Then
F5key = False 'dont think you need this but i put anyways
'your code here yet again to turn off
End If
Well, I'm trying to keep it to one timer, so I tried your method, and once again, I can stop it with f6, but cannot start it.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = TextBox1.Text * 1000 + TextBox2.Text
AutoClick()
Dim F5key As Boolean
Dim F6key As Boolean
F5key = GetAsyncKeyState(Keys.F5)
F6key = GetAsyncKeyState(Keys.F6)
If F5key = True Then
Timer1.Start()
End If
If F6key = True Then
F5key = False
Timer1.Stop()
End If
End Sub
ya see your timer has already started so that wont work and will collide with the code, so try this, i havent done this before on one timer so im just giving a guess
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.interval = 1
Dim F5key As Boolean
Dim F6key As Boolean
F5key = GetAsyncKeyState(Keys.F5)
F6key = GetAsyncKeyState(Keys.F6)
If F5key = True Then
Timer1.Interval = TextBox1.Text * 1000 + TextBox2.Text
AutoClick()
End If
If F6key = True Then
timer1.interval = 1
'put your code here to stop whatever your doing
End If
End Sub
Nah, that just fucks with the whole code. It may just be my computer though.
ill try to take a look on this O.o
First add this under public class:
Then under a timer which should start at form1 load put:
BTW thats the hotkey F9 heres a list of hotkeys and their correspnding #'s
112 F1 key
113 F2 key
114 F3 key
115 F4 key
116 F5 key
117 F6 key
118 F7 key
119 F8 key
120 F9 key
121 F10 key
122 F11 key
123 F12 key
124 F13 key
125 F14 key
126 F15 key
127 F16 key
the # goes to the hotkey so 127 is F16
Code:
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 'so its x64 bit compatible
Code:
Dim StartHotkey As Integer StartHotkey = GetAsyncKeyState(120) If StartHotkey <> 0 Then 'Your code here end if
112 F1 key
113 F2 key
114 F3 key
115 F4 key
116 F5 key
117 F6 key
118 F7 key
119 F8 key
120 F9 key
121 F10 key
122 F11 key
123 F12 key
124 F13 key
125 F14 key
126 F15 key
127 F16 key
the # goes to the hotkey so 127 is F16
Even with this:
My start hotkey doesnt work.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = TextBox1.Text * 1000 + TextBox2.Text
AutoClick()
Dim StartHotkey As Integer
StartHotkey = GetAsyncKeyState(120)
If StartHotkey <> 0 Then
Timer1.Start()
End If
Dim StopHotkey As Integer
StopHotkey = GetAsyncKeyState(121)
If StopHotkey <> 0 Then
Timer1.Stop()
End If
End Sub
Originally Posted by lolland
Even with this:
My start hotkey doesnt work.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = TextBox1.Text * 1000 + TextBox2.Text
AutoClick()
Dim StartHotkey As Integer
StartHotkey = GetAsyncKeyState(120)
If StartHotkey <> 0 Then
Timer1.Start()
End If
Dim StopHotkey As Integer
StopHotkey = GetAsyncKeyState(121)
If StopHotkey <> 0 Then
Timer1.Stop()
End If
End Sub
Code:
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 'so its x64 bit compatible
Originally Posted by lolland
Even with this:
My start hotkey doesnt work.
Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval = TextBox1.Text * 1000 + TextBox2.Text
AutoClick()
Dim StartHotkey As Integer
StartHotkey = GetAsyncKeyState(120)
If StartHotkey <> 0 Then
Timer1.Start()
End If
Dim StopHotkey As Integer
StopHotkey = GetAsyncKeyState(121)
If StopHotkey <> 0 Then
Timer1.Stop()
End If
End Sub
Originally Posted by bombsaway707
First add this under public class:
Then under a timer which should start at form1 load put:
BTW thats the hotkey F9 heres a list of hotkeys and their correspnding #'s
112 F1 key
113 F2 key
114 F3 key
115 F4 key
116 F5 key
117 F6 key
118 F7 key
119 F8 key
120 F9 key
121 F10 key
122 F11 key
123 F12 key
124 F13 key
125 F14 key
126 F15 key
127 F16 key
the # goes to the hotkey so 127 is F16
Code:
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 'so its x64 bit compatible
Code:
Dim StartHotkey As Integer StartHotkey = GetAsyncKeyState(120) If StartHotkey <> 0 Then 'Your code here end if
112 F1 key
113 F2 key
114 F3 key
115 F4 key
116 F5 key
117 F6 key
118 F7 key
119 F8 key
120 F9 key
121 F10 key
122 F11 key
123 F12 key
124 F13 key
125 F14 key
126 F15 key
127 F16 key
the # goes to the hotkey so 127 is F16
Originally Posted by guza44_44
Its because when u do this it takes it as every time you press the button it will do the code so u would have to hold it down for it to actually work...... but also if u do something with this code it just doesnt work in general
btw your fix for x64 gives me an error and im on x32 so it dont work for both
btw your fix for x64 gives me an error and im on x32 so it dont work for both
Yes I do have.
And even if I hold F9 it doesn't work.
Code:
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16
Originally Posted by bombsaway707
what error do u get?
Originally Posted by guza44_44
says i cant use the if key = true or anything, i think u forgot to add "as integer" at the end O.o
Originally Posted by bombsaway707
no cuz it works for me... when u click the error what line of code does it highlight?
Similar Threads
- 2Last post
- 13Last post
- 1Last post
- 1Last post
- 3Last post