Communauté Francophone AutoIt
https://autoitscript.fr/forum/
Code : Tout sélectionner
Global $USERTIME = DllStructCreate("dword Lo;dword Hi"), $IDLETIME = DllStructCreate("dword Lo;dword Hi"), $KERNELTIME = DllStructCreate("dword Lo;dword Hi")
Global $StartKernel, $StartIdle, $StartUser, $tSystem, $tSystemt, $CPU_First_Calc = True
$dll = DllOpen("user32.dll") ; Ouvre une DLL
While 1
$mem = MemGetStats()
toolTip("CPU : " & Calc_CPU_Usage() & " %" & @CRLF & "RAM : " & $mem[0] & " %", 0, 0,"", 1, 0)
sleep (1000)
WEnd
Exit
Func Calc_CPU_Usage()
DllCall('Kernel32.dll', "int", "GetSystemTimes", "ptr", DllStructGetPtr($IDLETIME), "ptr", DllStructGetPtr($KERNELTIME), "ptr", DllStructGetPtr($USERTIME))
If $CPU_First_Calc = True Then
$CPU_First_Calc = False
Return 0
EndIf
$tSystem = (DllStructGetData($KERNELTIME, 1) - $StartKernel) + (DllStructGetData($USERTIME, 1) - $StartUser)
$tSystemt = Ceiling((($tSystem - (DllStructGetData($IDLETIME, 1) - $StartIdle)) * (100 / $tSystem)))
$StartIdle = DllStructGetData($IDLETIME, 1)
$StartKernel = DllStructGetData($KERNELTIME, 1)
$StartUser = DllStructGetData($USERTIME, 1)
If $tSystemt > 100 Then Return 100
If $tSystemt < 0 Then Return 0
Return $tSystemt
EndFunc
