硬盘物理序列号全球都是唯一的,将此控件功能用到你软件的注册功能中是最好的选择(且这控件是全免费的)
使用说明:
Option Explicit
'硬盘参数
Dim rDisk As ReYo.DiskInfo
Private Sub Command1_Click()
Set rDisk = New ReYo.DiskInfo
Text1 = rDisk.GetDiskMode
Text2 = rDisk.GetDiskSerialNumber
Set rDisk = Nothing
End Sub