请问这段是对C盘序列号如何运算 - 编程论坛

#2

lianyicq2015-03-02 09:39

回复楼主 lriong

粗略解释一下：
VB没有getserialnumber函数，通常是自定义函数。此处应该是调用了API的GetVolumeInformation函数，将逻辑C盘的序列号赋值到hddid中（序列号是一串数字）。
单字符解密是将hddid中的每一个字符数字加偏移数97后用chrw函数转码得到。
最后再用Wscript.Shell对象读取注册表中的数据与之比较。
一般认为磁盘在逻辑盘格式化后或重新分区后，逻辑序列号会改变。
网上搜搜有现成的读取物理硬盘序列号的代码。

[ 本帖最后由 lianyicq 于 2015-3-2 10:19 编辑 ]

#3

lriong2015-03-02 14:03

回复 2楼 lianyicq

请问版主，我在运行这个工程文件时，提示这个自定义函数没有定义，我如何才能让它能正常运行呢？

#4

lianyicq2015-03-02 16:59

可以直接调用API函数GetVolumeInformation
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盘序列号:

程序代码：

Private 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

Private Sub Form_Load()
     Dim DriverName As String
     Dim SerialNum As Long
     Dim Buffer1 As String
     Dim Buffer2 As String
     DriverName = "c:\"
     Buffer1 = String$(255, 0)
     Buffer2 = String$(255, 0)
     GetVolumeInformation DriverName, Buffer1, Len(Buffer1), SerialNum, 0, 0, Buffer2, Len(Buffer2)
     Form1.Caption = SerialNum
End Sub

#5

lriong2015-03-07 21:01

十分感谢版主的解答！大致明白了。