Eu converti o código em lote do @beatcracker para AutoIt:
Opt("SendCapslockMode", 0)
; Set delay between blinking lights
; Delay = Seconds * 1000
Local $iDelay = 5000
While 1
Send("{CAPSLOCK on")
Sleep($iDelay)
Send("{CAPSLOCK off")
Sleep($iDelay)
Send("{NUMLOCK on")
Sleep($iDelay)
Send("{NUMLOCK off")
Sleep($iDelay)
WEnd
Se você quiser verificar o tempo ocioso (para evitar alternar se você estiver usando sua máquina), dê uma olhada em _ Timer_GetIdleTime () .