Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Stan obciążenia procesora
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003
Stan obciążenia procesora

Witam,
W jaki sposob dowiedzieć się jaki jest aktualny stan obiążenia procesora. Pamietam chyba, że informację tą można odczytać z rejestru systemowego ale gdzie ona jest przechowywana? Może jest jakiś łatwiejszy sposob lub ciekawszy i bogatszy w wyniki?
Z gory dziękuję za odpowiedź i czas poświęcony na jej udzielenie
Pozdrawiam
Andrzej


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

02-09-2004 00:52
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Na stronie http://www.vbaction.net/program.html jest do ściagnięcia przykład :
procesor.zip -Program wskazujący stopień obciążenia procesora (autor modułu: Adam Garczyk)


_____________________________________________
Karolina

02-09-2004 01:10
Pokaż profil karolinavb  Wyślij email do karolinavb   
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

nie wiesz może dlaczego cały czas mi wyświetla 100%?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

03-09-2004 13:14
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

A mi wyświetla 0%  Ale mam dobry procesor!

03-09-2004 14:15
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

Aaaa...Już wiem dlaczego. Nie każdy ma w rejestrze sekcję "HKEY_DYN_DATA". A może każdy ma, ale jest niewidoczna w edytorze? Ja myślę, że odczytywanie z rejestru stanu procka jest bez sensu. Powinna być jakaś funkcja api do tego.

03-09-2004 14:20
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Nie jest to bez sensu, bo klucz HKDD tak na prawdę nie istnieje. Jest on tworzony i dynamicznie zmieniany. To po prostu tymczasowe składowistko różnych danych o systemie.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

03-09-2004 16:00
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

no dobra ludziska! To co zrobić, żeby zaczął działać?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

03-09-2004 16:02
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Ponieważ autor popełnił błąd.
Interesujace nas dane są w StatData, a nie w StartStat.
Wystarczy poprawić nazwę klucza i wszystko będzie dobrze.

Pod WinNT nie będzie działało wogóle, bo klucz dynamiczny tego systemu ma inną nazwę (HKEY_PERFORMANCE_DATA) i inny uchwyt.


Dopisane 03.09.2004 22: 07

AUTOR JEST "NIEWINNY", TO JA ŹLE PRZANALIZOWAŁEM KOD


[Post edytowany dnia 03-09-2004 22:08 przez marcin_an]


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

03-09-2004 16:42
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

nadal nie działa . Najprawdopodobniej nie zrozumiałem o co chodzi, dlatego zamieszczam moduł z zrobionymi przeze mnie zmianami:

'************************************************************
' Obciążenie procesora w danym momencie zapisywane jest w
' rejestrze Windows. Za pomocą kilku funkcji API można tę
' wartość odczytywać np. co 1 sekundę (Timer.Interval = 1000)
'************************************************************
' Autorem Modułu jest Gary
' E-Mail :
Option Explicit

Global Const REG_DWORD = 4
Global Const HKEY_DYN_DATA = &H80000006

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
' koniecznie na Form1_LOAD !!!

Public Function Włącz_CPU()
Dim var_data As Long, var_type As Long, var_size As Long, hkey As Long
Dim tmp
tmp = RegOpenKey(HKEY_DYN_DATA, "PerfStats\StatData", hkey)
var_type = REG_DWORD
var_size = 4
tmp = RegQueryValueEx(hkey, "KERNEL\CPUUsage", 0, var_type, var_data, var_size)
tmp = RegCloseKey(hkey)
End Function

Public Function CPU_Usage() As Long
Dim var_data As Long, var_type As Long, var_size As Long
Dim hkey As Long
Dim tmp
             
tmp = RegOpenKey(HKEY_DYN_DATA, "PerfStats\StatData", hkey)
var_type = REG_DWORD
var_size = 4
tmp = RegQueryValueEx(hkey, "KERNEL\CPUUsage", 0, var_type, var_data, var_size)
CPU_Usage = Int(var_data)
tmp = RegCloseKey(hkey)
End Function



_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

03-09-2004 18:15
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

I wczym problem? poprosu wchodzimy na www.planet-source-code.com, rejestrujemy się i kożystamy! Dla leniwych podaję link : http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=27505&lngWId=1

03-09-2004 21:08
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Ok, a ja zrobiłem mały błąd. Zwracam autorowi honor.
AUTOR NIE ZROBIŁ BŁĘDU, NIEDOPATRZENIE JEST PO MOJEJ STRONIE!

Po prostu przy analizie pomyliłem procedury.
Program działa.

Mikmas
A jaki masz system operacyjny?


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

03-09-2004 22:04
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

Na Windowsach z rodziny NT (tzn. win 2000, NT, XP) nie działa.

04-09-2004 12:11
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Dlatego pytam jaki OS ma mikmas.


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

04-09-2004 14:07
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Usercontrol
mr. Tom



Typ: neutral
Postów: 191
Zarejestrowany: Oct 2003

http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=27505&lngWId=1 - tutaj jest na wszystkie windowsy od 95

04-09-2004 15:51
Pokaż profil Usercontrol  Wyślij email do Usercontrol   Odwiedź stronę Usercontrol       1518548
Wszystkich odpowiedzi: 13 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1