Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Alıntı:
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
Butona a tıklıyoruz ve kod sayfasına geçiyoruz oraya bu kodu yazıyoruz;
Alıntı:
Dim cpu As SYSTEM_INFO
GetSystemInfo cpu
Print "Cpu Tipi : " & cpu.dwProcessorType
Print "Cpu Sayısı : " & cpu.dwNumberOrfProcessors
05-07-2011, 14:17
İşlemci Bilgilerini Okumak 
Normal
