Activity Watcher - This application monitors the windows you visit on your computer, and how long you visit them for. It was built due to my frustration with inability to remember what to put on my timesheets.

ActivityWatcher.AHK

SetTimer, ActivityWatcher, 150
return

ActivityWatcher:
    if !CurrentTitle
    {
        WinGetTitle, CurrentTitle, A
        QPC(1)
    }
    
    WinGetTitle, CheckTitle, A
    
    tooltip, %CurrentTitle%;%CheckTitle%
    if trim(CheckTitle) != trim(CurrentTitle)
    {
        ;Log change in time to file
        DeltaTime := QPC(0)
        sAppend := trim(CurrentTitle) . "," . DeltaTime . "`r`n"
        FileAppend,%sAppend%,ActivityLog.txt
        
        ;Get new title and start timer again
        WinGetTitle, CurrentTitle, A
        QPC(1)
    }
return

;Call QPC(1) to start timer
;Call QPC(0) to stop timer and return time difference
QPC(R := 0)
{
    static P := 0, F := 0, Q := DllCall("QueryPerformanceFrequency", "Int64P", F)
    return ! DllCall("QueryPerformanceCounter", "Int64P", Q) + (R ? (P := Q) / F : (Q - P) / F) 
}