VB求助 急！ 高手请进！

njws55

如何通过VB获得硬盘序列号？         请高手帮帮忙给个代码         感激不尽

zhuxuhong

Private Declare Function GetVolumeInformation& Lib "kernel32" _ Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _ ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _ lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _ ByVal nFileSystemNameSize As Long) Private Const MAX_FILENAME_LEN = 256 Public Function DriveSerial(ByVal sDrv As String) As Long Dim RetVal As Long Dim str As String * MAX_FILENAME_LEN Dim str2 As String * MAX_FILENAME_LEN Dim a As Long Dim b As Long GetVolumeInformation sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, _ a, b, str2, MAX_FILENAME_LEN DriveSerial = RetVal End Function

功能

返回指定磁盘的序列号

语法

DriveSerial ( sDrv )

参数

sDrv:字符串，代表盘符

返回值

长整数，序列号

样例

Dim ds As Long ds = DriveSerial("C")

说明

盘符不必带":\"，如C盘不必填上c:\，而直接用C就行

njws55

我用上面的代码获得的一串数值。         还带负号的，怎么回事？ 是否是数值进制问题？