AutoHotkey Community

#persistent
SetBatchLines -1
SetTimer,Append,1000
Gui, Add, Text, x6 y20 w120 h40 vtime, Time Away
Gui, Show, x131 y91 h91 w198, Away Time
return
Append:
If A_TimeIdle > 1000
    {
     Idlesec := A_TimeIdle / 1000
     Transform,Idlesecround,Round, Idlesec
     GuiControl,,time,%Idlesecround% Seconds Away From PC
    }
Else
     GuiControl,,time,%a_timeidle% Milliseconds Away From PC
return

GuiClose:
ExitApp
return

Gui, -Caption +AlwaysOnTop
Gui, Font, s16 c0x00ffff, Trebuchet MS
Gui, Color, black
Gui, Add, Text, vMsg w350
Gui, Show, x10 y10, Time
Loop {
   t := gft(A_TimeIdlePhysical // 1000)
   GuiControl, , Msg, Time away: %t%
   Sleep, 500
}
Return

~*Esc::ExitApp

gft(s) { ; http://www.autohotkey.com/forum/viewtopic.php?p=93288#93288
   w = day.hour.minute.second
   loop parse, w, .
      s -= (t := s // (x := 60 ** (e := 4 - a_index) - 129600 * (e = 3))) * x
      , t ? m .= t . " " . a_loopfield . chr(115 * (t != 1)) . chr(32 * !!e)
   return m ? m : "0 seconds"
}