用vb获得硬盘序列号

mikewolf2k · 发表于 2003-12-16 18:34:00

请问用vb中的serialnumber获得的硬盘序列号究竟是什么,format/fdisk后会不会改变?

myfreemind · 发表于 2003-12-16 18:39:00

获取逻辑区序列号format以后就会变！物理序列号就不会！

gzy · 发表于 2003-12-16 18:40:00

在硬盘格式化后都会重新生成，且不会重复。

mikewolf2k · 发表于 2003-12-16 18:40:00

vb怎样获得物理序列号呢?

gzy · 发表于 2003-12-16 18:57:00

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 nFilesSystemNameSize As Long) As Long
Function GetSerialNumber(sRoot As String) As Long
Dim lSerialNum As Long
Dim R As Long
Dim strLabel As String, strType As String
strLabel = String$(255, Chr$(0))
  strType = String$(255, Chr$(0))
  R = GetVolumeInformation(sRoot, strLabel, Len(strLabel), _
  lSerialNum, 0, 0, strType, Len(strType))
  GetSerialNumber = lSerialNum
End Function
  用法：lserial = GetSerialNumber("c:\")
         lserial = GetSerialNumber("d:\")
         lserial = GetSerialNumber("e:\")
如果驱动器不存在，则返回0。
  本程序还可得到：磁盘卷标（strLabel），文件系统类型（strType）。