ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Pourcentage d'utilisation du CPU   



L'auteur

Anatole
France France
Membre Simple
# 0000000002
enregistré le 12/10/2004

Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > WMI (Windows Management Instrumentation)

Pourcentage d'utilisation du CPU
# 0000000428
ajouté le 16/03/2007 14:27:50 et modifié le 19/03/2007
consulté 8742 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0

Description

Ressource utilisée : http://msdn2.microsoft.com/en-us/library/aa394597.aspx

Code source :
set escape on
do while .T.
  ?CpuUtilisation()
enddo

*--------------------------------------------------------------------------*
*<proc>
*  Renvoie le pourcentage d'utilisation du CPU
*<usage>
*  Number CpuUtilisation()
*</proc>
procedure CpuUtilisation() as Number
local oWmi, oProcessor, nN1,nD1, nN2,nD2
  declare Sleep in kernel32 integer dwMilliseconds
  m.oWmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  m.oProcessor = m.oWmi.Get("Win32_PerfRawData_PerfOS_Processor.Name='_Total'")
  m.nN1 = Val(m.oProcessor.PercentProcessorTime)
  m.nD1 =  Val(m.oProcessor.TimeStamp_Sys100NS)
  Sleep(500)
  m.oProcessor = m.oWmi.Get("Win32_PerfRawData_PerfOS_Processor.Name='_Total'")
  m.nN2 = Val(m.oProcessor.PercentProcessorTime)
  m.nD2 =  Val(m.oProcessor.TimeStamp_Sys100NS)
  return Max(0, (1 - ((m.nN2 - m.nN1) / (m.nD2 - m.nD1))) * 100)
endproc && CpuUtilisation
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3