AutoHotkey Community

Loop, 900 ;(900 x 100ms = 90000ms)
{
Send, 1234
Sleep, 100
}
Sleep, 73500

Counter =
While Counter < 901
{
Send, 1234
Sleep, 100
Counter ++

If Counter > 901
{
Sleep, 73500
Counter = 0
}
}

StartTime:=A_TickCount            ; Get starting time
ElapsedTime:=A_TickCount-StartTime      ; Just to make sure initialized for while loop

While (ElapsedTime<90000)              ; Loop until your timer hit
{
   Send 1234                            ; Removed your inter key press delays
   Sleep 50                            ; Added some delay before we loop
   ElapsedTime:=A_TickCount-StartTime   ; Calc new time difference
}
Sleep 73500                       ; While broken - sleep
Reload                          ; Reload script

#SingleInstance, Force ; to force running of a new copy if another is already running
; prevents the msgbox "An older instance of this script is already running.  Replace it with this instance?"

return

F1:: ; start the mashing by pressing F1

run_time= 90000
pause_time = 73500

; this is a 'flag', if set it allows sending of characters
send_char=1

settimer, stop_char, -%run_time%   ; wait 90000 miliseconds, but "run-only-once mode"

loop
{
  if send_char=1
  {
    Send 1234
  }
  Sleep, 150
}

stop_char:
  send_char=0 ; after the timer delay, set the flag to stop characters
  settimer, start_char, -%pause_time%   ; wait 73500 miliseconds , but "run-only-once mode"
return

start_char:
  send_char=1 ; after the timer delay, set the flag to start characters
  settimer, stop_char, -%run_time%   ; wait 90000 miliseconds, but "run-only-once mode"
return



esc::  ; in case of emergency, hit escape key
exitapp