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