vb@rchiv · Tipps & Tricks · CPU-Geschwindigkeit ermitteln

Rubrik: System/Windows · Sonstiges | VB-Versionen: VB5, VB6

16.11.06

CPU-Geschwindigkeit ermitteln Dieser Tipp zeigt, wie man die Prozessorgeschwindigkeit (CPU) ermittelt
Autor: Microsys Kramer	Bewertung:	Views: 9.146
www.access-paradies.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Mit diesem Code lässt sich die Prozessorgeschwindigkeit (CPU) ermitteln. Hierzu wird der entsprechende Eintrag einfach aus der Windows-Registry ausgelesen.

Fügen Sie nachfolgenden Code in ein Modul ein.

Option Explicit
 
' Benötigte API-Deklarationen 
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
 
Private Const sCPURegKey = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
 
Private Declare Function RegOpenKey Lib "advapi32" _
  Alias "RegOpenKeyA" ( _
  ByVal hKey As Long, _
  ByVal lpSubKey As String, _
  phkResult As Long) As Long
 
Private Declare Function RegQueryValueEx Lib "advapi32" _
  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 RegCloseKey Lib "advapi32" ( _
  ByVal hKey As Long) As Long

Public Function GetCPUSpeed() As String
  On Error GoTo Err_GetCPUSpeed
 
  Dim hKey        As Long
  Dim cpuSpeed    As Long
 
  ' Registry öffnen
  Call RegOpenKey(HKEY_LOCAL_MACHINE, sCPURegKey, hKey)
 
  ' Wert auslesen
  Call RegQueryValueEx(hKey, "~MHz", 0, 0, cpuSpeed, 4)
 
  ' Registry wieder schließen
  Call RegCloseKey(hKey)
 
  If cpuSpeed < 1000 Then
    GetCPUSpeed = Format(cpuSpeed, "##0.##") & " MHz"
  Else
    GetCPUSpeed = Format((cpuSpeed / 1000), "##0.##") & " GHz"
  End If
 
Exit_GetCPUSpeed:
  Exit Function
 
Err_GetCPUSpeed:
  GetCPUSpeed = "Die CPU-Geschwindigkeit konnte nicht ermittelt werden"
  Resume Exit_GetCPUSpeed
End Function