AutoHotkey Community

;~ Select "Hide when Minimized" under "Options" in the Task Manager
;~ menubar if you want Task Manager in the tasktray.
;~ While this is running, you can't select any other tabs, it
;~ forces the process tab.
#Persistent
DetectHiddenWindows,On
Menu,Tray,Icon,%A_WinDir%\system32\shell32.dll,13


Tracktitle =      ;title of window to track
TrackProcess = firefox.exe   ;Waveosaur.1.0.0.7000.exe   ;process to track
;one or the other, title overrides process

TrackPID_Col = 2   ;column of pids
TrackCPU_Col = 4   ;column of cpu usage
TrackLIMIT = 75   ;percent not to exceed


If(Tracktitle)   ;if user has specified title
{   WinGet, TrackPID, PID, %Tracktitle%    ;get pid of window to track
}
Else   ;otherwise specified process
{
   Process, Exist, %TrackProcess%
   TrackPID := ErrorLevel
   Tracktitle := TrackProcess
}
title = Windows Task Manager ahk_class #32770   ;info for task manager
IfWinNotExist,%title%   ;if task manager not running
{   Run, %A_WinDir%\system32\taskmgr.exe,,Minimize,outPID
   WinWaitActive, ahk_pid %outPID%,,5
   sleep,2000   ;wait for 2 seconds to ensure that the task manager has initialized
}

SetTimer, getTrack, 500   ;checks every half second
Return

getTrack:
   ControlGet,tabNum, Tab,,SysTabControl321, %title%
   If(tabNum != 2)   ;has to be processes tab, 2
   {   ;need tab two, but it's 0 based, so select 1
      SendMessage, 0x130C, 1,, SysTabControl321, %title%  ; 0x130C is TCM_SETCURSEL
      ControlSend, systabcontrol321, {left}, %title%   ;workaround to make tab selection work
      ControlSend, systabcontrol321, {right}, %title%
   }

   ControlGet, listPID, List, col%TrackPID_Col%, SysListView321, %title%   ;get pid column from listview
   ControlGet, listCPU, List, col%TrackCPU_Col%, SysListView321, %title%   ;get cpu column from listview
   StringSplit,PID, listPID, `n   ;%A_Tab%   ;split into array
   StringSplit,CPU, listCPU, `n   ;%A_Tab%   ;split into array
   Loop
   {   If(PID%A_Index% = TrackPID)
      {   CPU := CPU%A_Index%   ;get current CPU usage
         Break   ;if found it, Break
      }
      IfGreater,A_Index,200,Break   ;probably nobody has more than 200 processes running
   }
   ;tooltip,%CPU%   ;for testing
   IfGreater,CPU,%TrackLIMIT%,msgbox,262208,CPUtracker v1.0,%Tracktitle% has exceeded %TrackLIMIT%`%.
Return

#Persistent
CoordMode, ToolTip, Screen

Process, Exist, Waveosaur.1.0.0.7000.exe
PID := errorLevel
IfEqual, PID, 0, ExitApp
SetTimer, ShowToolTip
Return

ShowToolTip:
 PrLoad := Round( GetProcessTimes(PID),2)
 ToolTip %PrLoad%`%, 10,10
Return

GetProcessTimes( PID=0 )    {
   Static oldKrnlTime, oldUserTime
   Static newKrnlTime, newUserTime

   oldKrnlTime := newKrnlTime
   oldUserTime := newUserTime

   hProc := DllCall("OpenProcess", "Uint", 0x400, "int", 0, "Uint", pid)
   DllCall("GetProcessTimes", "Uint", hProc, "int64P", CreationTime, "int64P"
           , ExitTime, "int64P", newKrnlTime, "int64P", newUserTime)

   DllCall("CloseHandle", "Uint", hProc)
Return (newKrnlTime-oldKrnlTime + newUserTime-oldUserTime)/10000000 * 100   
}

I just know someone's going to prove me wrong!

#Persistent
#SingleInstance, Force
CoordMode, ToolTip, Screen

IfNotEqual, 0, 2
{
    Msgbox, Invalid Arguments`nUsage: RecordCPUusage.exe <Process Name> <Filename.txt>
    ExitApp
}
Process, Exist, %1%
PID := errorLevel
If PID = 0
{
    Msgbox, Process does not exist.  Please check the process name.
    ExitApp
}
OUTPUTFILE = %2%

d = `n  ; string separator
s := 4096  ; size of buffers and arrays (4 KB)

Process, Exist  ; sets ErrorLevel to the PID of this running script
; Get the handle of this script with PROCESS_QUERY_INFORMATION (0x0400)
h := DllCall("OpenProcess", "UInt", 0x0400, "Int", false, "UInt", ErrorLevel)
; Open an adjustable access token with this process (TOKEN_ADJUST_PRIVILEGES = 32)
DllCall("Advapi32.dll\OpenProcessToken", "UInt", h, "UInt", 32, "UIntP", t)
VarSetCapacity(ti, 16, 0)  ; structure of privileges
InsertInteger(1, ti, 0, 4)  ; one entry in the privileges array...
; Retrieves the locally unique identifier of the debug privilege:
DllCall("Advapi32.dll\LookupPrivilegeValueA", "UInt", 0, "Str", "SeDebugPrivilege", "UIntP", luid)
InsertInteger(luid, ti, 4, 8)
InsertInteger(2, ti, 12, 4)  ; enable this privilege: SE_PRIVILEGE_ENABLED = 2
; Update the privileges of this process with the new access token:
DllCall("Advapi32.dll\AdjustTokenPrivileges", "UInt", t, "Int", false, "UInt", &ti, "UInt", 0, "UInt", 0, "UInt", 0)
DllCall("CloseHandle", "UInt", h)  ; close this process handle to save memory

hModule := DllCall("LoadLibrary", "Str", "Psapi.dll")  ; increase performance by preloading the libaray
s := VarSetCapacity(a, s)  ; an array that receives the list of process identifiers:
DllCall("Psapi.dll\EnumProcesses", "UInt", &a, "UInt", s, "UIntP", r)
PROCESSIDCOUNT = 0
Loop, % r // 4  ; parse array for identifiers as DWORDs (32 bits):
{
   id := ExtractInteger(a, A_Index * 4)
   ; Open process with: PROCESS_VM_READ (0x0010) | PROCESS_QUERY_INFORMATION (0x0400)
   h := DllCall("OpenProcess", "UInt", 0x0010 | 0x0400, "Int", false, "UInt", id)
   VarSetCapacity(m, s)  ; an array that receives the list of module handles:
   DllCall("Psapi.dll\EnumProcessModules", "UInt", h, "UInt", &m, "UInt", s, "UIntP", r)
   VarSetCapacity(n, s, 0)  ; a buffer that receives the base name of the module:
   e := DllCall("Psapi.dll\GetModuleBaseNameA", "UInt", h, "UInt", m, "Str", n, "Chr", s)
   DllCall("CloseHandle", "UInt", h)  ; close process handle to save memory
   If n  ; if image is not null add to list:
   {
       ifequal, n,%1%
       {
            PROCESSIDCOUNT += 1
            PROCESSIDLIST%PROCESSIDCOUNT% = %id%
       }
   }
}
DllCall("FreeLibrary", "UInt", hModule)  ; unload the library to free memory

FileAppend, %PROCESSIDCOUNT% process(s) found by the name %1%.`n, %OUTPUTFILE%


ExtractInteger(ByRef pSource, pOffset = 0, pIsSigned = false, pSize = 4)  ; See DllCall for details.
{
    Loop %pSize%  ; Build the integer by adding up its bytes.
        result += *(&pSource + pOffset + A_Index-1) << 8*(A_Index-1)
    if (!pIsSigned OR pSize > 4 OR result < 0x80000000)
        return result  ; Signed vs. unsigned doesn't matter in these cases.
    return -(0xFFFFFFFF - result + 1)
}

InsertInteger(pInteger, ByRef pDest, pOffset = 0, pSize = 4)
{
    Loop %pSize%  ; Copy each byte in the integer into the structure as raw binary data.
        DllCall("RtlFillMemory", "UInt", &pDest + pOffset + A_Index-1, "UInt", 1, "UChar", pInteger >> 8*(A_Index-1) & 0xFF)
}


SetTimer, ShowToolTip
Return

ShowToolTip:
   FileAppend, %A_DD% %A_MMM% %A_YYYY% %A_Hour%:%A_Min%:%A_Sec%.%A_MSec%, %OUTPUTFILE%
   Loop %PROCESSIDCOUNT%
   {
       element := PROCESSIDLIST%A_Index%
       PrLoad := Round( GetProcessTimes(element, A_Index),2)
       FileAppend, `tProcess load (ID: %element%) = %PrLoad%`%, %OUTPUTFILE%
   }

   TotCPULoad := GetSystemTimes()
   FileAppend, `tTotal CPU Load = %TotCPULoad%`%`n, %OUTPUTFILE%
   Return

GetProcessTimes( PID=0, IndexValue=1 )   
{
   global
   hProc := DllCall("OpenProcess", "Uint", 0x400, "int", 0, "Uint", pid)
   DllCall("GetProcessTimes", "Uint", hProc, "int64P", CreationTime, "int64P", ExitTime, "int64P", newKrnlTime, "int64P", newUserTime)
   DllCall("CloseHandle", "Uint", hProc)
   PROCESSCPUUSAGE :=  (newKrnlTime - oldKrnlTime%IndexValue% + newUserTime - oldUserTime%IndexValue%)/10000000 * 100
   oldKrnlTime%IndexValue% := newKrnlTime
   oldUserTime%IndexValue% := newUserTime
   Return PROCESSCPUUSAGE
} 


GetSystemTimes()    ; Total CPU Load
{
   Static oldIdleTime, oldKrnlTime, oldUserTime
   Static newIdleTime, newKrnlTime, newUserTime

   oldIdleTime := newIdleTime
   oldKrnlTime := newKrnlTime
   oldUserTime := newUserTime

   DllCall("GetSystemTimes", "int64P", newIdleTime, "int64P", newKrnlTime, "int64P", newUserTime)
   Return (1 - (newIdleTime-oldIdleTime)/(newKrnlTime-oldKrnlTime + newUserTime-oldUserTime)) * 100
}