请问用VB怎样读取硬盘序列号？是不是硬盘序列号都有固定格式的？请明示！

Question

请问用VB怎样读取硬盘序列号？是不是硬盘序列号都有固定格式的？请明示！

Answer 1

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 _
nFileSystemNameSize As Long) As Long '代码如下: Function GetSerialNumber(strDrive As String) As LongDim SerialNum As LongDim Res As LongDim Temp1 As StringDim Temp2 As StringTemp1 = String$(255, Chr$(0))Temp2 = String$(255, Chr$(0))Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))GetSerialNumber = SerialNumEnd Function 
Private Sub Command1_Click()
 Label1.Caption = GetSerialNumber(Text1.Text + ":\") 
End SubPrivate Sub form_load()
'使用该函数: '它将告诉磁盘序号。End Sub