有一些方法可以获取硬盘的序列号。我搜索并设计了这样的代码:
Public Function GetDriveSerialNumber() As String
Dim DriveSerial As Long
Dim fso As Object, Drv As Object
fso = CreateObject("Scripting.FileSystemObject")
Drv = fso.GetDrive(fso.GetDriveName("C:\"))
With Drv
If .IsReady Then
DriveSerial = .SerialNumber
Else
DriveSerial = -1
End If
End With
Drv = Nothing
fso = Nothing
GetDriveSerialNumber = Hex(DriveSerial)
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(GetDriveSerialNumber(), vbOKOnly, "Serial")
End Sub
在Stack Overflow站点中,有许多类似的代码块。当我运行代码时,它给了我硬盘C的序列号,如“349B3214”。
我没有尝试格式化我的电脑,但是格式化之后会改变吗?我的意思是当我跑步时,它说你的序列是“349B3214”。如果我格式化我的计算机并再次运行此代码,它是否给我相同的序列或不同?