在PB中通过读取硬盘序列号

 

　　要读取硬盘序列号我们可以用汇编来实现，但毕竟不容易，况且也不能有效的结合到PB脚本中。在PB中我们可以通过调用Windows提供的外部函数GetVolumeInformationA（）来实现。这相对来说比较简单。

　　该函数的原型为：
　　BOOL GetVolumeInformation(
　　LPCTSTR lpRootPathName,
　　LPTSTR lpVolumeNameBuffer,
　　DWORD nVolumeNameSize,
　　LPDWORD lpVolumeSerialNumber,
　　LPDWORD lpMaximumComponentLength,
　　LPDWORD lpFileSystemFlags,
　　LPTSTR lpFileSystemNameBuffer,
　　DWORD nFileSystemNameSize

　　上述原型中，参数类型只要是以"LP-"开头的表明该参数用的是长指针（Long Pointer）类型，即在PB中调用时的参数传递是通过引用传递。在8个参数中对我们真正有用的只有两个LPCTSTR lpRootPathName和LPDWORD lpVolumeSerialNumber。其中参数lpRootPathName是指向文件系统根目录的地址，我们需要用它来指明所要获取序列号的硬盘盘符；参数lpVolumeSerialNumber是返回的硬盘序列号的地址，这正是我们需要的。

　　众所周知，PB在调用任何外部函数前都要首先进行函数声明，可以将声明放在全局或局部函数声明中。具体声明如下：

　　Function Boolean GetVolumeInformationA( &
　　ref String ls_Rootpath, &
　　ref String ls_volumnename, &
　　Ulong lul_VolumeNameSize, ref Ulong lul_VolumeSerialNumber, &
　　ref Ulong lul_MaximumComponentLength, &
　　ref Ulong lul_FileSystemFlags, &
　　ref String ls_FileSystemNameBuffer, &
　　Ulong lul_FileSystemNameSize &
　　) Library "Kernel32.dll"

　　上述声明中，"ref"指明是该参数是通过引用传递的，有关函数引用的详细内容请参见有关教程。声明完毕我们不能马上进行调用，还必需确保已为它分配足够的内存空间，即使是参数引用传递也是这样，否则的话将会出现调用错误，这跟C语言的引用调用不同，这一点往往被忽视，希望读者能够注意。也就是为什么我在调用该函数前将有些字符串参数给它预先分配了多达256个字符空间以及给一些整型类型的参数赋初始值256。完整的读取硬盘序列号的程序代码如下：

/******************* 程序代码 ************************/

String ls_Rootpath, ls_volumnename
ls_Rootpath = "C:" // 指定要得到序列号的硬盘，

// 一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘

ls_volumnename = Space(256) // 分配足够的空间，下同
Ulong lul_VolumeNameSize
lul_VolumeNameSize = 256
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags

lul_MaximumComponentLength = 256
String ls_FileSystemNameBuffer
ls_FileSystemNameBuffer = space(256)
Ulong lul_FileSystemNameSize
lul_FileSystemNameSize = 256
beep(1)
boolean lb_rtn
lb_rtn = False
lb_rtn = GetVolumeInformationA(ls_Rootpath, ls_volumnename, lul_VolumeNameSize,
lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags,
ls_FileSystemNameBuffer, lul_FileSystemNameSize)
if lb_rtn = true then
MessageBox("提示","函数调用成功!")
else
MessageBox("提示","函数调用失败!")
end if
sle_1.text = String(lul_VolumeSerialNumber) // 得到硬盘序列号

/********************* 结束 *************************/