我用16進(jìn)制顯示，有個(gè)性
Private Declare Function 獲得硬盤序列號(hào) 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, 硬盤序列號(hào), Maxlen, Sysflag As Long: Dim VolName, FsysName As String
AA = 獲得硬盤序列號(hào)("c:\", VolName, 256, 硬盤序列號(hào), Maxlen, Sysflag, FsysName, 256)
Form1.Caption = "C硬盤序列號(hào)(16制): " & Hex(硬盤序列號(hào))
Exit Sub
Err_Form_Load:
End Sub
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
