• Home
 · 
• Registry
 · 
• Get to know about your processor information. No DLLs require.

Get to know about your processor information. No DLLs require.

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



Rate Get to know about your processor information. No DLLs require.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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