Jump to content

From tip to Progress


 Share

Recommended Posts

hello guys

checkout this Code

$array = ProcessList("explorer.exe")
$iPID = $array[1][1]
$sProcess = $iPID          ;PID number for test process name
;~ $sProcess = "Idle"      ;Other test process names
;~ $sProcess = "_Total"  ;funny one
;~ $sProcess = "ntvdm"    ;DOS process
;~ $sProcess = "AutoIt3"    ;do not assign .exe to process name

While 1
    $iProcessCPU = _ProcessGetCPU($sProcess, 300 )
    $sTip = "Process " & $sProcess & " CPU: " & $iProcessCPU & "%"
    traytip("", $sTip   ,1)
;~  sleep(1000)  ;set your own sleep time for LOOP mode
WEnd

Func _ProcessGetCPU($strProcess = "Idle", $iSampleTime = 10, $sComputerName = @ComputerName)
;~    All Parameters are optional:
;~        - Idle process will be measured if first parameter is not set
;~        - 500 ms is default sample time
;~        - This computer will be measured by default
;~    Process could be string ("Name") or PID number (1234)
;~    When more processes are runing with identical name, then the last opened is measured (use PID for other)
;~    For NORMAL MODE(one time measuring): set Sample value to more than 0 ms
;~                ( average CPU usage will be measured during sleep time within function)
;~    For LOOP MODE (continuous measuring): set Sample value to 0 ms
;~                ( average CPU usage will be measured between two function calls )
;~    Total CPU usage is: ( 100 - _ProcessGetCPU())
;~    Success: Returns process CPU usage in percent
;~            (Sample times below 100ms may return inaccurate results)
;~            (First result in Loop Mode may be inaccurate,
;~             because first call in Loop Mode is only used to trigger counters)
;~    Failure: Returns -1  ( wrong process name or PID )
;~           : Returns -2  ( WMI service not found or Computer not found)
    if $strProcess = "" then $strProcess = "Idle"
    if $iSampleTime = "" AND IsString($iSampleTime) then $iSampleTime = 500
    if $sComputerName = "" then $sComputerName = @ComputerName
    if not IsDeclared("iP1") AND $iSampleTime = 0 then    ;first time in loop mode
        $bFirstTimeInLoopMode = 1
    else
        $bFirstTimeInLoopMode = 0
    endif
    if not IsDeclared("iP1") then
        assign("iP1", 0, 2)  ;forced global declaration first time
        assign("iT1", 0, 2)
    endif

    $objWMIService = ObjGet("winmgmts:\\" & $sComputerName & "\root\CIMV2")
    if @error then return -2
    if number($strProcess) then
        $strProcess = " WHERE IDProcess = '" & $strProcess & "'"
    else
        $strProcess = " WHERE Name = '" & $strProcess & "'"
    endif
    if $iSampleTime OR $bFirstTimeInLoopMode = 1 then   ;skip if Loop Mode, but not First time
        $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfRawData_PerfProc_Process" & $strProcess)
        For $objItem In $colItems
            $iT1 = $objItem.TimeStamp_Sys100NS
            $iP1 = $objItem.PercentProcessorTime
        next
        if  $objItem = "" then return -1    ;process not found
        sleep($iSampleTime)
    endif

    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfRawData_PerfProc_Process" & $strProcess)
    For $objItem In $colItems
        $iP2 = $objItem.PercentProcessorTime
        $iT2 = $objItem.TimeStamp_Sys100NS
    next
    if  $objItem = "" then return -1    ;process not found
    $iPP = ($iP2 - $iP1)
    $iTT = ($iT2 - $iT1)
    if $iTT = 0 Then return 100  ;do not divide by 0
    $iCPU = round( ($iPP/$iTT) * 100, 0)
    $iP1 = $iP2
    $iT1 = $iT2
    Return $iCPU
EndFunc ;==>_ProcessGetCPU() by novaTek ...ver 0.11

ok as you see this will show you your Explorer.exe in tip, im wondering about how to make this show you the CPU Usage in The Progress bar ;)

Lets say we will put the CPU usage in this progress bar :)

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 129, 192, 124)
$Progress1 = GUICtrlCreateProgress(32, 16, 545, 89)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd

i hope someone know how to .. :D

Link to comment
Share on other sites

This is quick solution.

It can be improved to be called according to timers.

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $iProcessCPU_prev = ''

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 129, 192, 124)
$Progress1 = GUICtrlCreateProgress(32, 16, 545, 89)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;~ $array = ProcessList("explorer.exe")
;~ $iPID = $array[1][1]
;~ $sProcess = $iPID          ;PID number for test process name
$sProcess = "Idle"      ;Other test process names
;~ $sProcess = "_Total"  ;funny one
;~ $sProcess = "ntvdm"    ;DOS process
;~ $sProcess = "AutoIt3"    ;do not assign .exe to process name

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
EndSwitch

    $iProcessCPU = _ProcessGetCPU($sProcess, 300 )
If $iProcessCPU <> $iProcessCPU_prev Then
GUICtrlSetData($Progress1, $iProcessCPU)
$iProcessCPU_prev = $iProcessCPU
;~     $sTip = "Process " & $sProcess & " CPU: " & $iProcessCPU & "%"
;~     traytip("", $sTip   ,1)
EndIf
WEnd

Func _ProcessGetCPU($strProcess = "Idle", $iSampleTime = 10, $sComputerName = @ComputerName)
;~    All Parameters are optional:
;~        - Idle process will be measured if first parameter is not set
;~        - 500 ms is default sample time
;~        - This computer will be measured by default
;~    Process could be string ("Name") or PID number (1234)
;~    When more processes are runing with identical name, then the last opened is measured (use PID for other)
;~    For NORMAL MODE(one time measuring): set Sample value to more than 0 ms
;~                ( average CPU usage will be measured during sleep time within function)
;~    For LOOP MODE (continuous measuring): set Sample value to 0 ms
;~                ( average CPU usage will be measured between two function calls )
;~    Total CPU usage is: ( 100 - _ProcessGetCPU())
;~    Success: Returns process CPU usage in percent
;~            (Sample times below 100ms may return inaccurate results)
;~            (First result in Loop Mode may be inaccurate,
;~             because first call in Loop Mode is only used to trigger counters)
;~    Failure: Returns -1  ( wrong process name or PID )
;~           : Returns -2  ( WMI service not found or Computer not found)
    if $strProcess = "" then $strProcess = "Idle"
    if $iSampleTime = "" AND IsString($iSampleTime) then $iSampleTime = 500
    if $sComputerName = "" then $sComputerName = @ComputerName
    if not IsDeclared("iP1") AND $iSampleTime = 0 then    ;first time in loop mode
        $bFirstTimeInLoopMode = 1
    else
        $bFirstTimeInLoopMode = 0
    endif
    if not IsDeclared("iP1") then
        assign("iP1", 0, 2)  ;forced global declaration first time
        assign("iT1", 0, 2)
    endif

    $objWMIService = ObjGet("winmgmts:" & $sComputerName & "rootCIMV2")
    if @error then return -2
    if number($strProcess) then
        $strProcess = " WHERE IDProcess = '" & $strProcess & "'"
    else
        $strProcess = " WHERE Name = '" & $strProcess & "'"
    endif
    if $iSampleTime OR $bFirstTimeInLoopMode = 1 then   ;skip if Loop Mode, but not First time
        $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfRawData_PerfProc_Process" & $strProcess)
        For $objItem In $colItems
            $iT1 = $objItem.TimeStamp_Sys100NS
            $iP1 = $objItem.PercentProcessorTime
        next
        if  $objItem = "" then return -1    ;process not found
        sleep($iSampleTime)
    endif

    $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfRawData_PerfProc_Process" & $strProcess)
    For $objItem In $colItems
        $iP2 = $objItem.PercentProcessorTime
        $iT2 = $objItem.TimeStamp_Sys100NS
    next
    if  $objItem = "" then return -1    ;process not found
    $iPP = ($iP2 - $iP1)
    $iTT = ($iT2 - $iT1)
    if $iTT = 0 Then return 100  ;do not divide by 0
    $iCPU = round( ($iPP/$iTT) * 100, 0)
    $iP1 = $iP2
    $iT1 = $iT2
    Return $iCPU
EndFunc ;==>_ProcessGetCPU() by novaTek ...ver 0.11
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...