论坛 › 『 提问交流 』 › 获进程CPU 使用率老错误

lusheng0028 发表于 2011-8-1 22:02:32

获进程CPU 使用率老错误

#include <file.au3>
#include <Array.au3>

$Process="kwmusic.exe"
$Process="MyPopo.exe"
$sComputer = "."
Dim $log = "55.log"
Opt("GUIOnEventMode", 1)
dim $hong=@ScriptDir
_FileWriteLog($hong & $log, "5555")
;_FileWriteLog($hong & $log, _ProcessListProperties($Process = "", $sComputer = "."))
$aThread = _ProcessListProperties($Process, $sComputer)
_FileWriteLog($hong & $log, $aThread)
Dim   $avProcs1
Dim   $avProcs2

Func _ProcessListProperties($Process = "", $sComputer = ".")
       
      Local $sUserName, $sUserDomain, $dtmDateD
      Local $avProcs = [], $n = 1
      Local $oWMI, $colProcs
      If StringIsInt($Process) Then $Process = Int($Process)
      $oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate, authenticationLevel=pktPrivacy, (Debug)}!\\" & $sComputer & "\root\CIMV2")
                                $colProcs = $oWMI.ExecQuery("SELECT * FROM Win32_Process WHERE ProcessId = " & $Process)
                Local $oRefresher = ObjCreate("WbemScripting.SWbemRefresher")
                $colProcs = $oRefresher.AddEnum($oWMI, "Win32_PerfFormattedData_PerfProc_Process").objectSet
                $oRefresher.Refresh
                Local $iTime = TimerInit()
                Do
                        Sleep(20)
                Until TimerDiff($iTime) >= 100
                $oRefresher.Refresh
                                While True
                                        $avProcs1 = $colProcs.PercentProcessorTime
                                        $avProcs2= $colProcs.WorkingSet
                                WEnd
                               Return $avProcs1 & $avProcs2
EndFunc
                  

netegg 发表于 2011-8-2 07:45:23

cpu使用率还是去找找pdh吧,这样算出来的都不太准

查看完整版本: 获进程CPU 使用率老错误