Замір ступеня використання процесора

Нещодавно в статті, присвяченій недокументовані можливості Windows, я виявив цікавий спосіб вимірювання ступеня використання процесора. Справа в тому, що в Windows 9x існують лічильники Performance Counters, які можна включити з реєстру, і до реєстру ж вони будуть посилати результати вимірів. Наприклад завантаженості процесора. Є вони і в NT, але доступ до них складніше.

До мій власний подив результат перекладу С на людський VB відмінно заробив! По-цьому, якщо Вашій програмі потрібно знати завантаженість проца, або якщо Ви зацікавитесь доступом до реєстру з WinApi32, то Ви можете познайомитися з простеньким прикладом. Зрозуміло в повному варіанті потрібно було б вставити перевірку типу Windows (наприклад через GetWindowsVersion), згортання в SysTray і т.п., але в "скороченому" вигляді Вам буде простіше пристосувати дану фічу Windows до своїх потреб.

Отже. Якщо у Вас не NT. Розташуйте на формі кнопочку. Назвемо її cmdStart. Як водиться, у розділ General Declarations вставляємо:

Відкрити потрібний ключ:

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (_

ByVal hkey As Long, _

ByVal pSubKey As String, _

ByVal ulOptions As Long, _

ByVal samDesired As Long, _

phkResult As Long) As Long

hkey, lpSubKey - шляхи до ключу,

ulOptions - Зарезервовано: має бути нуль,

samDesired - Тип доступу: комбінація зумовлених констант,

phkResult - Змінна, яка одержує Хендлі потрібного ключа. Не забудьте потім закрити.

Отримати тип і значення параметра з раніше відкритого ключа:

Private 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

hkey - Хендлі раніше відкритого ключа,

lpValueName - Ім'я параметра, який потрібно прочитати,

lpReserved - Зарезервовано: має бути нуль,

lpType - Змінна, в яку буде повертатися тип параметра

можна передати нуль, якщо тип не потрібно (нам, до речі, передасть 3 - REG_BINARY),

lpData - Те, що нас цікавить,

lpcbData - Змінна, яка містить довжину буфера під lpData,

після виконання буде містити кількість насправді переданих байт

у нас - довжина слова: 4. Якщо змінну замінити просто на 4 - теж працює

Закриття раніше відкритого ключа:

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long

Деякі константи з API Viewer:

Private Const HKEY_DYN_DATA = & H80000006

Private Const STANDARD_RIGHTS_ALL = & H1F0000

Private Const READ_CONTROL = & H20000

Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)

Private Const KEY_QUERY_VALUE = & H1

Private Const KEY_SET_VALUE = & H2

Private Const KEY_CREATE_SUB_KEY = & H4

Private Const KEY_ENUMERATE_SUB_KEYS = & H8

Private Const KEY_NOTIFY = & H10

Private Const KEY_CREATE_LINK = & H20

Private Const SYNCHRONIZE = & H100000

Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL OR _

KEY_QUERY_VALUE OR KEY_SET_VALUE OR _

KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or _

KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _

KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or _

KEY_NOTIFY) And (Not SYNCHRONIZE))

Для службових потреб:

Самий ресурсощедящій спосіб вичекати паузу (в мілісекундах):

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Завжди стане в нагоді:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _

ByVal hWndInsertAfter As Long, _

ByVal x As Long, _

ByVal y As Long, _

ByVal cx As Long, _

ByVal cy As Long, _

ByVal WFlags As Long) As Long

А це наше:

Dim hkey As Long

Dim dwCPUUsage As Long

Dim lpcbData As Longпо-моєму дійсно краще викинути,

підставивши в потрібних місцях 4. Ау, теоретики!

Dim bStart As Boolean

Private Sub Form_Load ()

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3

бачимо завжди

End Sub

Private Sub cmdStart_Click ()

bStart = Not bStart

bStart - Це Вкл-Викл. Див далі

If bStart Then

якщо - True - починаємо

cmdStart.Caption = "& Stop"

міняємо назва кнопочки

Включаємо лічильник, зчитуючи значення відповідного ключа:

If RegOpenKeyEx (HKEY_DYN_DATA, "PerfStatsStartStat", 0, KEY_ALL_ACCESS, _

hkey) 0 Then Exit Sub

lpcbData = 4

RegQueryValueEx hkey, "KERNELCPUUsage", 0, 0, dwCPUUsage, lpcbData

RegCloseKey hkey

закрити ключ

Прочитуємо значення прямо з реєстру:

If RegOpenKeyEx (HKEY_DYN_DATA, "PerfStatsStatData", 0, KEY_READ, _

hkey) 0 Then Exit Sub

Do While bStart

поки ще раз не натиснемо на кнопочку