VBA程序如何用硬盘序列号进行注册？

hncslxf

各位大侠、老师：如附件（仅为示例），如果要对其进行与硬盘序列号捆绑进行注册，如何编写VBA代码？
要求：此EXCEL文件不能移植到其它电脑上，如果要移植此EXCEL文件，就需要注册（与硬件盘序列号对应），不注册时，此EXCEL文件就不能运行。
请老师、大侠不要笑话附件VBA水平的低下，仅为示例。再者，我查了网上一些内容，都没找到合适的，请老师、大侠指教，给出具体的代码。谢谢！

hncslxf

大侠、老师、专家：请不昔指教，多多感谢！

hncslxf

不好意思。附件有点错误，请参见此附件。

hncslxf

请高手出招！万分感谢！

shesunone

只要能获得硬盘序列号就好了，至于再怎么处理，就看你方便了。下面是获得硬盘序列号的代码！

Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA"     (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize  As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags  As Long, ByVal lpFileSystemNameBuffer As String,  ByVal nFileSystemNameSize As Long) As Long

Function GetSerialNumber(sRoot As String) As Long
    Dim lSerialNum As Long
    Dim R As Long
    Dim sTemp1 As String, sTemp2 As String
    strLabel = String$(255, Chr$(0))    '磁盘卷标
    strType = String$(255, Chr$(0))    '文件系统类型 一般为 FAT
    R = GetVolumeInformation(sRoot, strLabel, Len(strLabel), lSerialNum, 0, 0, strType, Len(strType))
    GetSerialNumber = lSerialNum
End Function

shesunone

还有个关于获取硬盘，cpu，主板序列号的方法，如下：

Sub 磁盘物理序列号()
MsgBox GetObject("winmgmts:").InstancesOf("Win32_PhysicalMedia")("Win32_PhysicalMedia.Tag=""\\\\.\\PHYSICALDRIVE0""").SerialNumber
End Sub


Sub CPU序列号() '特别提示：这个不是唯一的，即有可能多个CPU同一一序列号
For Each 序列 In GetObject("Winmgmts:").InstancesOf("Win32_Processor")
MsgBox "CPU 序列号: " & CStr(序列.ProcessorId)
Next
End Sub


Sub 主板序列号()
    Dim objs As Object, Obj As Object, WMI As Object, 主板序列号
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("Win32_BaseBoard")
    For Each Obj In objs
       MsgBox "您的主板序列号是：" + Obj.SerialNumber
    Next
End Sub

zyg365

还是获取硬盘物理序列号为好，那是固定而唯一的！

1249994139

shesunone 发表于 2012-6-18 13:46
只要能获得硬盘序列号就好了，至于再怎么处理，就看你方便了。下面是获得硬盘序列号的代码！

Private De ...

老师，请问下，我运行了此代码，不知怎么么的，得到的结果为“0”值，可以烦请解释下吗，谢谢