Browse Source

added autohotkey script

master
Raphael Roberts 7 years ago
parent
commit
99b838ff8b
  1. 38
      clicker.ahk

38
clicker.ahk

@ -0,0 +1,38 @@
SetBatchLines -1 ; Ensures maximum effectiveness of this method.
CoordMode, Mouse, Screen
fname := A_ScriptDir . "\on"
SendMode Input
cont := true
val = %1%
d := Round(1000 / val)
If (!FileExist(fname)) {
FileAppend,"",%fname%
}
SendEvent {Tab}
TimePeriod = 1
SleepDuration = 1
Sleep 1000
DllCall("Winmm\timeBeginPeriod", UInt, TimePeriod)
while cont
{
GetKeyState, finished,Space,P
if finished = D
{
cont := false
ExitApp 0
}
else
{
DllCall("Sleep", UInt, d)
Click
}
}
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)
Tab::
If (FileExist(fname)) {
FileDelete,%fname%
}
else {
FileAppend,"",%fname%
}
Pause,Toggle,1
Loading…
Cancel
Save