mega大针蜂配带什么好:VB难题～！高手请进

用VB调用硬盘序列号有点麻烦
网上有一个DLL文件，直接调用就可以读取了
不过不太好找
直接读取硬盘好像没有

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 IntToHex(ByVal Dec As Long) As String
Dim a As String
IntToHex = ""
Do While Dec > 0
a = CStr(Dec Mod 16)
Select Case a
Case "10": a = "A"
Case "11": a = "B"
Case "12": a = "C"
Case "13": a = "D"
Case "14": a = "E"
Case "15": a = "F"
End Select
IntToHex = a & IntToHex
Dec = Dec \ 16
Loop
End Function

Private Sub Command1_Click()
Dim dw, dwTemp1, dwTemp2 As Long
Dim p1, p2 As String
GetVolumeInformation "c:\", p1, 20, dw, dwTemp1, dwTemp2, p2, 20
Text1.Text = "C盘的序列号为：" & IntToHex(Abs(dw))
End Sub