我知道如何读硬盘ID:
API函数:
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
Public Function GetID() As String
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long
Dim GetVal As Long
Call GetVolumeInformation("C:/", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
If Val(GetVal) = 0 Then
GetID = "164926773"'读取失败,指定一个ID
Else
GetID = Trim(GetVal)
End If
End Function
API函数:
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
Public Function GetID() As String
Dim TempStr1 As String * 256
Dim TempStr2 As String * 256
Dim TempLon1 As Long
Dim TempLon2 As Long
Dim GetVal As Long
Call GetVolumeInformation("C:/", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
If Val(GetVal) = 0 Then
GetID = "164926773"'读取失败,指定一个ID
Else
GetID = Trim(GetVal)
End If
End Function