VB获取硬盘逻辑序列号的方法

最新推荐文章于 2021-07-26 08:02:01 发布

原创最新推荐文章于 2021-07-26 08:02:01 发布 · 2.6k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#vb #string #command #function #hex #c

VB 专栏收录该内容

82 篇文章

订阅专栏

本文介绍了一种使用Visual Basic编写的简单方法来获取计算机硬盘的序列号。通过调用Windows API函数GetVolumeInformationA，该方法可以跨不同操作系统版本运行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

新建个窗口，在其上加个Command，Caption为Get Serial
加入下列代码：

Private Declare Function GetVolumeSerialNumber 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 VolumeSerialNumber(ByVal RootPath As String) As String

Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim s As String
Dim ret As Boolean

ret = GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize)

If ret Then

'Create an 8 character string
s = Format(Hex(Serial), "00000000")
'Adds the '-' between the first 4 characters and the last 4 characters
VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4)

Else

'If the call to API function fails the function returns a zero serial number
VolumeSerialNumber = "0000-0000"

End If

End Function

Private Sub Command1_Click()

MsgBox VolumeSerialNumber("C:") 'Shows the serial number of your Hard Disk

End Sub