1.打开VB,新建Active Dll
2.将工程1改名为hdddll
3.将已有的类class1改名为hdd
4.在改名后的hdd类中加入下面代码:
Private Declare Function GetHddIDapi 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 GetHddID() As Long
On Error GoTo Err_Form_Load
Dim AA, hddid As Long, Maxlen, Sysflag As Long: Dim VolName, FsysName As String
AA = GetHddIDapi("c:\", VolName, 256, hddid, Maxlen, Sysflag, FsysName, 256)
GetHddID = hddid
Exit Function
Err_Form_Load:
GetHddID = 0
End Function
5.点文件生生hdddll.dll
现在开始使用,
6.新建VB工程,添加引用,选择浏览,选择hdddll.dll所在的文件夹,选择hdddll.dll文件并确定,在form中加入下面代码
Private Sub Form_Load()
Dim a As New Hdd
MsgBox a.GetHddID
End Sub