VB中利用硬盘序列号计算软件注册码

在模块中加入下列声明：

Public Declare Function GetVolumeInformation Lib "kernel32" _

Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _

ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _

lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _

lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _

ByVal nFileSystemNameSize As Long) As Long

'得到某一磁盘分区的信息，如C：

窗体代码如下：

Option Explicit

Private Regid, Localid As Long

Private Sub CmdLocalID_Click()

'根据C盘序列号得到原ID

Dim Driver, VolName, Fsys As String

Dim volNumber, MCM, FSF As Long

Driver = "c:\"

Dim res As Long

res = GetVolumeInformation(Driver, VolName, 127, volNumber, MCM, FSF, Fsys, 127)

'volNumber是C盘序列号

Localid = volNumber / 2 + 123456789

Text1.Text = Localid

End Sub

Private Sub CmdRegID_Click()

'根据原ID算出注册ID

If IsNumeric(Text1.Text) Then

Regid = CLng(Text1.Text) / 4 * 3 + 987654321

Else

'error

End If

Text2.Text = Regid

End Sub

Private Sub CmndCheckID_Click()

'验证注册ID

Dim Driver, VolName, Fsys As String

Dim volNumber, MCM, FSF As Long

Driver = "c:\"

Dim res As Long

res = GetVolumeInformation(Driver, VolName, 127, volNumber, MCM, FSF, Fsys, 127)

Dim Tid As Long

Tid = volNumber / 2 + 123456789

If Regid = Tid / 4 * 3 + 987654321 Then

MsgBox "正确！"

Else

MsgBox "错误！"

End If

End Sub

为便于演示，我在窗体上用了两个文本框三个按钮，请根据情况灵活使用，可以在用户端算出原ID，发给你，你算出注册ID再发给用户，验证当然是在用户端啦。ID算法很简单，只作示范。此注册ID只能在这一台机器上使用，对于非高手用户来说是足够啦。

注：如用户格式化C：盘后需重新获得ID。