VB取得本机CPU 序列号

本主题由 Teenits 于 2008-5-11 01:16 设置高亮

程序员

Conqueror

Rank: 3 Rank: 3

UID: 10289
帖子: 31
精华: 0
积分: 329
所在学校
所属专业
阅读权限: 30
在线时间: 3 小时
注册时间: 2008-4-6

1^# 大中小发表于 2008-5-5 17:42 只看该作者

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