cpu speed

[Phenglai]

Pillejunior,

There are several posts on the forum dealing with this subject. I recently made a dll that will get any info I need of a computer.

The bottom line is, if you have a Win9x platform, you can not get the CPU speed unless you create a C++ dll and use some assembly code. I found a dll out there that will give you just the cpu speed. Here is the link

http://www.vbforums.com/showthread.p...light=cpuspeed

The WMI stuff seems to only work on the an NT platform and mainly 2000 and later.

You can get the speed by using the following code on a Win200/XP machine to retrieve the speed from the registry.

Private Const KEY_CREATE_LINK = &H20
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_EVENT = &H1     '  Event contains key event record
Private Const KEY_NOTIFY = &H10
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const READ_CONTROL = &H20000
Private Const SYNCHRONIZE = &H100000
Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)
Private Const STANDARD_RIGHTS_ALL = &H1F0000
Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
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 Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE))
 
Private Const HKEY_LOCAL_MACHINE = &H80000002
 
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
 
Public Function ProcessorSpeed() As String
 
' If we are on a WinNT Platform, we can do this
 
    Dim lValue As Long
    Dim GroupHandle As Long
    Dim Section As String
    
    Section = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
    
    ' Open the Registry Key
    RegOpenKeyEx HKEY_LOCAL_MACHINE, Section, 0&, KEY_READ, GroupHandle
    
    ' Get the value
    RegQueryValueEx GroupHandle, "~Mhz", 0&, 0&, lValue, 4&
  
    ' Close the Registry
    RegCloseKey GroupHandle
    
    'Give it to me
    ProcessorSpeed = lValue & " Mhz"
  
 
End Function

I hope this helps you out.

Jerel