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

本文地址：http://www.45fan.com/a/question/72550.html