تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لمعرفة نسبة استخدام البروسيسور في الجهاز
#1
كاتب الموضوع : AhmedEssawy

بالنسبة المئوية من طاقة البروسيسور ، اكتب في قسم التصاريح :


كود :
Option Explicit
' Note that if you declare the lpData parameter as String, you
' must pass it By Value.
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
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, _
phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
Private Const KEY_QUERY_VALUE = &H1
Private Const HKEY_DYN_DATA As Long = &H80000006
Private Const STAT_DATA = "PerfStats\StatData"
Private Const CPU_USE = "KERNEL\CPUUsage"
وفي الكود :


كود :
Public Function CPU_Usage_Percent() As Long
On Error GoTo errorhandler:
Dim lResult As Long
Dim lData As Long
Dim lType As Long
Dim hKey As Long


lResult = RegOpenKeyEx(HKEY_DYN_DATA, STAT_DATA, _
0, KEY_QUERY_VALUE, hKey)

If lResult = 0 Then
lResult = RegQueryValueEx(hKey, CPU_USE, 0, _
lType, lData, 4)
If lResult = 0 Then
CPU_Usage_Percent = lData
lResult = RegCloseKey(hKey)
End If
End If
Exit Function
errorhandler:
On Error Resume Next
RegCloseKey hKey
Exit Function
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنام مستودعات + مبيعات لمحل مواد بناء بدون استخدام الاكسيس abulayth 4 1,964 05-12-14, 08:52 AM
آخر رد: bakrimoh
  شباب محتاج مساعدة في استخدام (المسافة ثم _ ) بشار الذيب 6 1,118 14-04-13, 12:11 PM
آخر رد: بشار الذيب
  لمعرفة عنوان المجلد MyDocuments RaggiTech 0 308 17-10-12, 02:23 PM
آخر رد: RaggiTech
  لمعرفة حجم الذاكرة الحية الخاصة بكل Slot RaggiTech 0 337 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة ان كانت السنة كبيسة أم لا RaggiTech 0 318 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الوقت المستغرق منذ بدأ تشغيل الآلة RaggiTech 0 366 17-10-12, 02:22 PM
آخر رد: RaggiTech
  لمعرفة الخطوط المدعومة RaggiTech 0 322 17-10-12, 02:21 PM
آخر رد: RaggiTech
  معرفه اي بي Ip الجهاز RaggiTech 0 339 17-10-12, 01:10 AM
آخر رد: RaggiTech
  معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة RaggiTech 0 389 17-10-12, 01:05 AM
آخر رد: RaggiTech
  لمعرفة نوع المعالج المثبت في جهازك RaggiTech 0 308 17-10-12, 01:02 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم