用vb获得硬盘序列号

莫名

1 获得的是硬盘逻辑序列号,不同的逻辑分区得到的值不同！
2 重新分区或格式化后都会变！
3 获得的值位数,硬盘一般是9位数。
网上有一个获得物理硬盘的序列号的程序，你自己搜索一下。

yfy2003

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

Dim sDriveLetter As String
    Dim RetVal As Long
    Dim lpName As String
    Dim nSize As Long
    Dim lpMaxComp As Long
    Dim nFileFlags As Long
    Dim lpFileName As String
    lpName = Space(255)
    lpFileName = Space(255)
    nSize = 255
     
    sDriveLetter = "C:\"
RetVal = GetVolumeInformation(sDriveLetter, lpName, nSize, nSerial, lpMaxComp, nFileFlags, lpFileName, nSize)
         
    nSerial是硬盘逻辑序列号。和关大将军的是相同的。

mikewolf2k

莫大,你先前那个链接也是逻辑序列号吗?!不要让我空欢喜一场..........................

莫名

不！是物理序列号！

mikewolf2k

莫大,怎么用啊?????????????????????
谢.......................泄..................

wenmaokun

cxvgfsdgdtgreter