Getting Processor Speed

[conquerdude]

How do you find the processor speed (700MHZ, 350MHZ, etc.) in Visual Basic?

[Chin311]

http://www.planetsourcecode.com/vb/s...t=Alphabetical

[jim mcnamara]

This gets general system information like is the CPU a PII or PIII?

 
' From allapi.net 
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 
Private Sub Form_Load() 
  Dim SInfo As SYSTEM_INFO 
  'KPD-Team 1998 
  'URL: http://www.allapi.net/ 
'  [email protected] 
'  Set the graphical mode to persistent 
  Me.AutoRedraw = True 
'Get the system information 
   GetSystemInfo SInfo 
   'Print it to the form 
   Me.Print "Number of procesors:" +         str$(SInfo.dwNumberOrfProcessors) 
  Me.Print "Processor:" + str$(SInfo.dwProcessorType) 
  Me.Print "Low memory address:" + str$(SInfo.lpMinimumApplicationAddress) 
  Me.Print "High memory address:" + str$(SInfo.lpMaximumApplicationAddress) 
End Sub

There is no existing api that gets the cpu speed.

But in NT you can get it from the Registry

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

Private Declare Function RegOpenKey Lib "advapi32.dll" _
   Alias "RegOpenKeyA" _
  (ByVal hKey As Long, _
   ByVal lpSubKey As String, _
   phkResult As Long) As Long

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
   

  Function cpuSpeed() as long

   Dim hKey As Long
   Dim cpuSpd As Long
    
   Call RegOpenKey(HKEY_LOCAL_MACHINE, _
        "HARDWARE\DESCRIPTION\System\CentralProcessor\0",
         hKey)
   Call RegQueryValueEx(hKey, "~MHz", 0, 0, cpuSpd, 4)
   Call RegCloseKey(hKey)
    
   CPUSpeed = cpuSpd

[conquerdude]

Thanx to both of you, but I was looking for something like Chin311's response.