VB6 獲取CPUID的幾种方法

第一种：API：

Private Type OSVERSIONINFO

dwOSVersionInfoSize As Long

dwMajorVersion As Long

dwMinorVersion As Long

dwBuildNumber As Long

dwPlatformId As Long

szCSDVersion As String * 128 ' Maintenance string for PSS usage

End Type

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetCPUid() As String

On Error GoTo doError

Dim len5 As Long, aa As Long

Dim cmprName As String

Dim Computer As String

Dim CPUs As Object, MyCpu As Object

Dim osver As OSVERSIONINFO

Dim SerialNo As String

'取得Computer Name

cmprName = String(255, 0)

len5 = 256

aa = GetComputerName(cmprName, len5)

cmprName = Left(cmprName, InStr(1, cmprName, Chr(0)) - 1)

Computer = cmprName '取得CPU端口号

Set CPUs = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2").ExecQuery("select * from Win32_Processor")

For Each MyCpu In CPUs

SerialNo = MyCpu.ProcessorId

Exit For

Next

GetCPUid = SerialNo

Exit Function

doError:

GetCPUid = ""

End Function

第二种：使用类：

'Microsoft WMI Scripting V1.1 Library的引入

Public Function GetProcessorID() As String

Dim a As SWbemServices

Dim b As SWbemObjectSet

Dim c As SWbemObject

Dim d As SWbemPropertySet

Dim e As SWbemProperty

Dim str As String

Set a = GetObject("winmgmts:")

Set b = a.InstancesOf("Win32_Processor")

For Each c In b

With c

If .Properties_.Count > 0 Then

Set d = .Properties_

For Each e In d

If UCase(e.Name) = UCase("ProcessorId") Then

str = e.Value

End If

Next

End If

End With

Next

GetProcessorID = str

End Function