如何取得CPU的序列号？

Question

我想用CPU的序列号来发行软件，但我找不到取得CPU的序列号的方法，还望各位前辈指教一二。

Answer 1

'取得CPU序列号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
Private Const VER_PLATFORM_WIN32_NT = 2
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32s = 0
Private Sub Command1_Click()
    Dim len5 As Long, aa As Long
    Dim cmprName As String
    Dim osver As OSVERSIONINFO
    '取得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
      Text1.Text = mycpu.ProcessorId
    Next
End Sub
0383FBFF0000068A就是我的cpu号码共4X4=16个字符
窗体上放一个按钮一个text就可以，大家收藏吧，这个程序对保护自己知识产权很有用的！

Answer 2

http://www.applevb.com/sourcecode/cpuinfo.zip

Answer 3

http://expert.csdn.net/Expert/topic/1712/1712593.xml?temp=.9032862