VB 写了一个程序 如何加入注册码 使一个注册码对应一台机器

我这个是利用每一台机子都有唯一对应cpu序列号，来计算得到注册码，注册成功后，它会向注册表写入注册信息，下次启动不再弹出注册窗口，否则将弹出错误窗口并自动结束程序。
代码程序已发给你
这是一个实例软件代码：

Private Sub Form_Load()
j = GetSetting("MyApp1", "Startup", "b")
If j = "1" Then
Form1.Show
Else
Call jiance
End If
End Sub
Private Sub jiance()
Dim cpuSet
Dim cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
a = (cpu.ProcessorId)
Next
For i = 1 To Len(a)
c = c & Asc(Mid(a, i, 1))
Next
a = InputBox("请输入注册码")
If a = c Then
Form1.Show
SaveSetting "MyApp1", "Startup", "b", "1"
Else
MsgBox "注册码错误"
End
End If
End Sub

这是计算注册码的代码：
Private Sub Command1_Click()
Dim cpuSet
Dim cpu
Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
For Each cpu In cpuSet
a = (cpu.ProcessorId)
Next
Print "cpu序列号为:" & a; ""
For i = 1 To Len(a)
c = c & Asc(Mid(a, i, 1))
Next
Text1 = "与此对应的注册码为：" & c
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/eveve7y33.html