谁给一个软件注册码方案？

绑定电脑的硬盘，可是每次重装系统都会变，烦死了。 --------------------编程问答-------------------- http://topic.csdn.net/u/20090922/21/f227a560-478f-4871-b353-7e6dca18d9b1.html --------------------编程问答--------------------

Private Function HardInfo() As String



Dim sReturn    As String

Dim objInst    As Object, objChild



'BIOS

Set objInst = GetObject("winmgmts:").ExecQuery("Select  *  From  Win32_BIOS")

For Each objChild In objInst

        sReturn = objChild.Version

        Exit For

Next



'硬盘

Set objInst = GetObject("winmgmts:").ExecQuery("Select  *  From  Win32_DiskDrive")

For Each objChild In objInst

        sReturn = sReturn & "|" & objChild.PNPDeviceID

        '或者使用  DeviceID。但是  DeviceID  可能每次重新安装  Windows  后都会改变。

        'sReturn  =  sReturn  &  "|"  &  objChild.DeviceID

        Exit For

Next



HardInfo = sReturn

End Function

得到的信息重装系统会改变吗？我的电脑得到的是：
DELL   - 27d2040a|IDE\DISKIC25N020ATCS04-0________________________CA2OA72A\5&32FA7F7A&0&0.0.0
是什么意思？郁闷！！！！ --------------------编程问答--------------------

引用 2 楼 chunaii 的回复:

VB code
Private Function HardInfo() As String

Dim sReturn    As String
Dim objInst    As Object, objChild

'BIOS
Set objInst = GetObject("winmgmts:").ExecQuery("Select  *  From  Win32_BIOS")
……

主板序列号。IDE的ClassID。

个人建议，初学者应该把精力放在程序本身。加密是相对的。没有价值的软件就没有加密的价值；没有技术的软件也用不到加密的技术。 --------------------编程问答--------------------

引用 3 楼 caozhy 的回复:

引用 2 楼 chunaii 的回复:
VB code
Private Function HardInfo() As String

Dim sReturn As String
Dim objInst As Object, objChild

'BIOS
Set objInst = GetObject("winmgmts:").ExecQuery("Select * From Wi……

我没有加密啊，我是要简单的实现软件只能让一个人用，总不能自己辛辛苦苦写的程序让所有人都用吧！就是要找个一劳永逸的方法。别让他们重装一次系统找我一次，真郁闷

补充：VB ,  非技术类