Retrieves the current percentage of the Disk IO Usage
#include <WinAPISys.au3>
_WinAPI_QueryDiskUsage ( $bToolTip = False )
| $bToolTip | to display a tooltip of the Disk IO usage (Default no display) |
| Success: | The percentage of the Disk IO Usage. |
| Failure: | Sets the @error flag to non-zero, call _WinAPI_GetLastError() to get extended error information. |
The Disk IO related to a process is the sum of number of Read operations, number of Write operations and number of Other operations as return By ProcessGetStats()
The "taskmgr.exe", "dwm.exe" and the "System" processes are ignored,
as those processes are always working in background.
#AutoIt3Wrapper_AutoIt3Dir = e:\trunk.SVN\Bin
#pragma compile(AutoItExecuteAllowed, True)
;~ #include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPISys.au3>
; create a script which use CPU
Local $sTestAu3 = @TempDir & "\TestSystemIdle.au3"
FileDelete($sTestAu3)
FileWriteLine($sTestAu3, 'For $i = 1 To 50000000')
FileWriteLine($sTestAu3, '$i = $i')
FileWriteLine($sTestAu3, 'Next')
;~ Local $sTestAu3 = @TempDir & "\TestIOIdle.au3"
;~ FileDelete($sTestAu3)
;~ FileWriteLine($sTestAu3, 'For $i = 1 To 100000')
;~ FileWriteLine($sTestAu3, 'FileRead(@ScriptFullPath)')
;~ FileWriteLine($sTestAu3, 'Next')
If @Compiled Then
Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sTestAu3 & '"')
Else
Run(@AutoItExe & " " & $sTestAu3)
EndIf
Local $fCurSystem, $fSystemPercent = 1.0, $nSystemSleep = 0, $iRefresh = 2000
Local $fCurIO, $fIOPercent = 1.0, $nIOSleep = 0
Local $hTimer = TimerInit()
Do
$nSystemSleep += 1
Sleep($iRefresh)
$fCurSystem = _WinAPI_QueryProcessorUsage(True)
Until $fCurSystem < $fSystemPercent
Do
;in case the processor is not really idle !!!
$nIOSleep += 1
Sleep($iRefresh)
$fCurIO = _WinAPI_QueryDiskUsage(True)
Until $fCurIO < $fIOPercent
Local $sElapse = Round(TimerDiff($hTimer) / 1000, 2)
FileDelete($sTestAu3)
MsgBox($MB_TOPMOST, 'Test duration', $sElapse & " sec (" & $nSystemSleep & "/" & $nIOSleep & ')')