VB硬盘序列号(逻辑)

第一个是一个函数，连在一起不要断开。
第二个是一个窗体加载的事件，请写入某个窗体的代码中，

Private Declare Function 获得硬盘序列号 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


Private Sub Form_Load()
On Error GoTo Err_Form_Load    
    Dim aa As Long
    Dim VolName As String
    Dim 硬盘序列号 As Long
    Dim Maxlen As Long
    Dim Sysflag As Long
    Dim fsysName As String
    
    
    aa = 获得硬盘序列号("c:/", VolName, 256, 硬盘序列号, Maxlen, Sysflag, fsysName, 256)
    
    
    msgbox "c 硬盘序列号(16制): " & hex(硬盘序列号)

Exit Sub
Err_Form_Load:
End Sub