我用16进制显示,有个性
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, 硬盘序列号, Maxlen, Sysflag As Long: Dim VolName, FsysName As String AA = 获得硬盘序列号("c:\", VolName, 256, 硬盘序列号, Maxlen, Sysflag, FsysName, 256) Form1.Caption = "C硬盘序列号(16制): " & Hex(硬盘序列号) Exit Sub Err_Form_Load: End Sub |
|