by Lakmal Fonseka (1 Submission)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 16th October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Get to know about your processor information. No DLLs require.
API Declarations
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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
' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Const REG_SZ = 1 ' Unicode nul terminated string
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const key_read = 131097
Dim trap As Integer: Dim Handle As Long
Dim DataBuffer As String * 60: Dim Databuffer1 As String * 60
Dim RtnString As String: Dim RtnString1 As String: Dim subkey As String
subkey = "Hardware\Description\System\CentralProcessor\0"
RegOpenKeyEx HKEY_LOCAL_MACHINE, subkey, 0, key_read, Handle
RegQueryValueEx Handle, "Identifier", 0, REG_SZ, ByVal DataBuffer, Len(DataBuffer)
RegQueryValueEx Handle, "VendorIdentifier", 0, REG_SZ, ByVal Databuffer1, Len(Databuffer1)
RegCloseKey Handle
DataBuffer = Trim(DataBuffer): trap = InStr(DataBuffer, Chr(0)): RtnString = Left(DataBuffer, trap - 1)
Databuffer1 = Trim(Databuffer1): trap = InStr(Databuffer1, Chr(0)): RtnString1 = Left(Databuffer1, trap - 1)
DataBuffer = vbNullString: Databuffer1 = vbNullString
Print RtnString: Print RtnString1
End Sub