如何根据CPU序列号和磁盘序列号设计软件注册程序？？？？？

Question

各位高手帮帮忙，在VB里如怎么据CPU序列号和磁盘序列号设计软件注册程序？小弟在此先谢过啦  最好是能给我代码。

Answer 1

思路：
1.得到cpu和磁盘序列号
2.生成2个md5值
3.根据md5值的不同，自己弄个编码程序

Answer 2

private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM-INFO) 　Private Type SYSTEM_INFO 　　 dwOemID As Long 　　 dwPageSize As Long 　　 lpMinimumApplicationAddress As Long 　　 lpMaximumApplicationAddress As Long 　　 dwActiveProcessorMask As Long 　　 dwNumberOrfProcessors As Long 　　 dwProcessorType As Long 　　 dwAllocationGranularity As Long 　　 dwReserved As Long 　　End Type 
在窗体上加一个按扭
单击事件
dim Sys As SYSTEM—INFO
Call GetSystemInfo(Sys)
msgbox "处理器序号"&sys.dwNumberOfProcessors