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