Finde CPU load

hvis det er win9x så kan den vist nok findes i regdb (HKEY_DYN_DATA"
hvis det er winnt så skal du lave et kald til NtQuerySystemInformation som er i "ntdll.dll". Dette kald er tilsyneladende udokumenteret hos microsoft - jeg har ikke kunnet finde det.

jeg har noget c++ kode der viser hvodan det kan gøres, men ingen basic..

så det er ikke noget du kan hjælpe med??

jeg kan fortælle dig algoritmen, men du må selv implementere den (jeg kender intet til basic)

det må du gerne...

du skal bruge nogle datastrukturer:
typedef struct
{
      DWORD  dwUnknown1;
      ULONG  uKeMaximumIncrement;
      ULONG  uPageSize;
      ULONG  uMmNumberOfPhysicalPages;
      ULONG  uMmLowestPhysicalPage;
      ULONG  uMmHighestPhysicalPage;
      ULONG  uAllocationGranularity;
      PVOID  pLowestUserAddress;
      PVOID  pMmHighestUserAddress;
      ULONG  uKeActiveProcessors;
      BYTE    bKeNumberProcessors;
      BYTE    bUnknown2;
      WORD    wUnknown3;
} SYSTEM_BASIC_INFORMATION;

typedef struct
{
      LARGE_INTEGER  liIdleTime;
      DWORD          dwSpare[76];
} SYSTEM_PERFORMANCE_INFORMATION;

typedef struct
{
      LARGE_INTEGER liKeBootTime;
      LARGE_INTEGER liKeSystemTime;
      LARGE_INTEGER liExpTimeZoneBias;
      ULONG        uCurrentTimeZoneId;
      DWORD        dwReserved;
} SYSTEM_TIME_INFORMATION;

en definition på metoden:
typedef LONG (WINAPI *PROCNTQSI)(UINT,PVOID,ULONG,PULONG);

selve koden:
int getCpuBelastning_winnt()
{
  PROCNTQSI NtQuerySystemInformation;

  SYSTEM_PERFORMANCE_INFORMATION SysPerfInfo;
  SYSTEM_TIME_INFORMATION SysTimeInfo;
  SYSTEM_BASIC_INFORMATION SysBaseInfo;
  double dbIdleTime;
  double dbSystemTime;
  LONG status;
  LARGE_INTEGER liOldIdleTime = {0, 0};
  LARGE_INTEGER liOldSystemTime = {0, 0};
  HINSTANCE dll;

  dll = LoadLibrary("ntdll.dll");
  if(dll != NULL)
  {
      NtQuerySystemInformation = (PROCNTQSI)GetProcAddress(dll, "NtQuerySystemInformation");
  }
  FreeLibrary(dll); 

  if(!NtQuerySystemInformation)
  {
      return -1;
  }

  // Hent antal processor i computeren.
  status = NtQuerySystemInformation(SystemBasicInformation, &SysBaseInfo, sizeof(SysBaseInfo), NULL);
  if (status != NO_ERROR)
  {
      return -1;
  }

  for(int i=0;i<2;i++)
  {
      //Hent system tid.
      status = NtQuerySystemInformation(SystemTimeInformation, &SysTimeInfo, sizeof(SysTimeInfo), 0);
      if(status!=NO_ERROR)
      {
        return -1;
      }
     
      //Hent CPU udnyttet tid.
      status = NtQuerySystemInformation(SystemPerformanceInformation, &SysPerfInfo, sizeof(SysPerfInfo), NULL);
      if(status != NO_ERROR)
      {
        return -1;
      }
 
      //Hvis det er første gennemløb springes der over.
      if(liOldIdleTime.QuadPart != 0)
      {
        // CurrentValue = NewValue - OldValue
        dbIdleTime = Li2Double(SysPerfInfo.liIdleTime) - Li2Double(liOldIdleTime);
        dbSystemTime = Li2Double(SysTimeInfo.liKeSystemTime) - Li2Double(liOldSystemTime);
   
        // CurrentCpuIdle = IdleTime / SystemTime
        dbIdleTime = dbIdleTime / dbSystemTime;
   
        // CurrentCpuUsage% = 100 - (CurrentCpuIdle * 100) / NumberOfProcessors
        dbIdleTime = 100.0 - dbIdleTime * 100.0 / (double)SysBaseInfo.bKeNumberProcessors + 0.5;
      }
      liOldIdleTime = SysPerfInfo.liIdleTime;
      liOldSystemTime = SysTimeInfo.liKeSystemTime;

      //sov et sekund
      Sleep(1000);

  }
  return (UINT)dbIdleTime;
}


så må du stille spørgsmål til det du ikke forstår - så skal jeg prøve at besvare dem.

jeg kan ikke direkte smide det der over i VB jo... :(

Jeg lader lige spm'et stå åben lidt... :D

Der er muligvis en anden der kan hjælpe dig med at få det oversat. Muligvis er noget lign. allerede lavet. Men jeg brugte en hel del tid på at finde noget konkret om emnet da jeg lavede ovenstående, så det er måske svært at finde. Faktisk er ovenstående "bare" en modificering af noget kode jeg fandt "somewhere on the Internet" :-)

jeg kan lave en dll der indkapsler koden - men så vil du stadig skulle oversætte følgende kode:
dll = LoadLibrary("ntdll.dll");
  if(dll != NULL)
  {
      NtQuerySystemInformation = (PROCNTQSI)GetProcAddress(dll, "NtQuerySystemInformation");
  }
  FreeLibrary(dll);

http://www.zarr.net/vb/download/codedetail.asp?code=201 <-- der kan du hente en ting der viser det, med source.....

bortset fra at det ikke virker tubber... :(

det virker her......har lige prøvet den

tubber kører du Windows 98??

hos mig er der kun 0% .,,, ;/

Nope 2k, men det skulle virke i 9x, me, 2k og NT

det er mærkeligt jeg ser kun 0 %.... hele tiden...

hvad får du af fejl ?

prøv at sætte den til at lave noget så....

f.eks. noget billedebehandling...

chekkede den sammen med den der er i 2k - de fulgtes af....

Jeg har en anden, men mangler en ocx, ser på det senere skal lige ud og handle :O)

Har den ocx nu....

Det ser ud til den kun virker i 9x og me, kan ikke teste den men kan da maile den til dig......

hmm, jeg kører win2k og den virker sq ikke... :(

Jeg har lige testet den på en anden win2k også, det virker heller ikke...

spooky

ehh dumt spm men,
skal man ikke bare åbne .vbp filen, og så trykke "play" ??

jo det gør jeg og den viser cpuload

tubber >

kunne du ikke lige compilere din og så sende den til min mail??

jeppejp@hotmail.com ??

Den er på vej :O)

Jeg har lige smidt en always on top på, så er det nemmere at chekke den :O)

/Tubber

Det er fandme mystisk ... men det virker altså ikke... :(

:( :(

hmmmm.....giver den ikke udslag hvis du starter programmer eller noget`?

Jeg kører den paralelt med den i win2k...
den kører op og ned, men den anden står bare stille...
Det er wierd... :(

fuck!! cpu.exe bruger 12.0 mbram

Har lige sendt et screendump af hvordan min står når jeg kører en divx.....

jeg har win2k sp3 og visual basic sp4 ved ikke  om det har noget med det at gøre.....

fandt selv et svar...

hvis nogen er intereserede skriv :D  (PÅ mail)

ja tak...

det er sq lidt svært at følge diskutionen... sådan en crappy server-fejl! :(

Sion:

Hvad er det du kunne tænke dig at vide ?

Ikke noget, ellers tak tubber... Igår var hele siden bare black p.g.a. en serverfejl, men nu ser det hele ud til at være i skønneste orden :)

:O)

ups... siden var ikke black, men blank - ellers havde det vist været min monitor den var gal med ;)

hehe jae regnede også med det var det du mente :O)