查看完整版本: VB取得本机CPU 序列号

VB取得本机CPU 序列号

仅仅几行代码实现取得本机CPU序列号，可以使用此序列号实现程序的注册功能。个人感觉使用CPU序列号注册比使用硬盘序列号更为适合。

'引用 Microsoft WMI Scripting v1.1 Library

'添加 Command1


Private Sub Command1_Click()
   Dim cpuSet As SWbemObjectSet
   Dim cpu As SWbemObject
   Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
   For Each cpu In cpuSet
      MsgBox "CPU系列号:" & cpu.ProcessorId           取得CPU序列号
   Next
End Sub

试试看

好东东呵:012 :012