AutoHotkey Community

Code: Select all

#SingleInstance, Force

F1::										  ; press F1 to start the test session
      app := "notepad.exe"                    ; let's select "notepad.exe" for testing
      Run,% app,, Max                         ; start "notepad.exe" so you can see it dying ...                       
      Sleep, 100                              ; yeah, life is beautiful, but ...
      timer(app,0.2,"A")                      ; notepad.exe should die, 0.2min (= 12sec) from now, showing the "A"larm countdown
      Sleep, 1000                             ; powernap before we kill another candidate ...
      timer("calc.exe")                       ; calc.exe should die [after the default period of 0.05min (= 3sec), without showing a countdown]
      ExitApp                                 ; Mission accomplished. Yours sincerely, carnifex.
      }

timer(processName,ttd=0.05,alarm=""){
      Process, Exist,% processName            ; check if process exists, if yes ...
      PID := ErrorLevel                       ; ... let's keep its process ID

      eTime := ttd*60000                      ; calculate time to stop (minutes to milliseconds)
      sTime := A_TickCount                    ; get current time to start with
      i := 0
      
      Loop {
        ToolTip %  msg := (ErrorLevel = 0) ? processName " doesn't exist!" : counter := SubStr((ttd*60)-i,1,-7)  ; create & display tooltip message
        If (counter <= 5) && (alarm = "A")    ; start to alarm if requested, 5 sec prior shutdown
          SoundBeep
        If (A_TickCount - sTime) > eTime-1000 ; time has elapsed, ...
          Break                               ; ... let's do it!
        Sleep, 1000
        i++
        }

      Process, Close,% PID  ; processName     ; Kill the process.
      ToolTip
      }