获取硬盘序列号(ReYoDisk) 121.11

您还在为您的软件产品被非法的复制安装而烦恼吗？软件加密控件给您的软件一个强大的安全保护伞，我们取得的硬盘序列号是硬盘的出厂序列号，不会随着系统的安装、硬盘的格式化等操作而改变，通过这个序列号制作的注册码只能在一台计算机当中安装，从而 起到对您的软件产品的保护作用。
软件加密控件采用纯VB语言编写，安全可靠，并可以在其他的语言环境当中引用，调用方法如下：
1.将我们控件复制到系统目录System32下面，并通过Regsvr32 命令进行注册（本演示程序无需要该操作）
2.在您的软件程序中进行引用添加，调用函数如下：
VB调用的例子
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