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

الكود منقول ايضاً ، قم بكتابة التالي في قسم التصاريح :


كود :
Option Explicit
' Name: Obtaining Information About CPU
' Author: Chong Long Choo



Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo _
As SYSTEM_INFO)
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Public Enum etProcessorType
PROCESSOR_INTEL_386 = 386
PROCESSOR_INTEL_486 = 486
PROCESSOR_INTEL_PENTIUM = 586
PROCESSOR_MIPS_R4000 = 4000
PROCESSOR_ALPHA_21064 = 21064
End Enum
Private tmpSystemInfo As SYSTEM_INFO




وفي الدالة :


كود :
Private Sub Class_Initialize()
GetSystemInfo tmpSystemInfo
End Sub
Public Function ProcessorType() As etProcessorType
'See declarations for meaning of returned values
ProcessorType = tmpSystemInfo.dwProcessorType
End Function
Public Function NumberOrfProcessors() As Long
NumberOrfProcessors = tmpSystemInfo.dwNumberOrfProcessors
End Function
Public Function MaximumApplicationAddress() As Long
MaximumApplicationAddress = _
tmpSystemInfo.lpMaximumApplicationAddress
End Function
Public Function MinimumApplicationAddress() As Long
MinimumApplicationAddress = _
tmpSystemInfo.lpMinimumApplicationAddress
End Function
Public Function PageSize() As Long
PageSize = tmpSystemInfo.dwPageSize
End Function
Public Function OemID() As Long
OemID = tmpSystemInfo.dwOemID
End Function
Public Function Reserved() As Long
Reserved = tmpSystemInfo.dwReserved
End Function
Public Function AllocationGranularity() As Long
AllocationGranularity = _
tmpSystemInfo.dwAllocationGranularity
End Function
Public Function ActiveProcessorMask() As Long
ActiveProcessorMask = tmpSystemInfo.dwActiveProcessorMask
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! RaggiTech 0 712 17-10-12, 03:27 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping + mac address RaggiTech 0 1,029 17-10-12, 03:24 PM
آخر رد: RaggiTech
  معرفة الاجهزة التي تعمل على الشبكة ping RaggiTech 0 606 17-10-12, 03:23 PM
آخر رد: RaggiTech
  معرفة المساحة الفارغة في القرص -- Api RaggiTech 0 470 17-10-12, 02:54 PM
آخر رد: RaggiTech
  معرفة لغة العرض الخاصة بنظام التشغيل ويندوز RaggiTech 0 421 17-10-12, 02:24 PM
آخر رد: RaggiTech
  معرفة وعمل Format لرقم هاتف RaggiTech 0 464 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة وجود كرت صوت ملحق بالجهاز أم لا RaggiTech 0 408 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة مستوى الصوت المعرف في الويندوز وتغييره RaggiTech 0 328 17-10-12, 01:09 AM
آخر رد: RaggiTech
  معرفة لون النقطة التي يمر بها الماوس حالياً RaggiTech 0 464 17-10-12, 01:08 AM
آخر رد: RaggiTech
  معرفة عنوان النافذة النشطة الآن RaggiTech 0 435 17-10-12, 01:08 AM
آخر رد: RaggiTech

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


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