您还在为您的软件产品被非法的复制安装而烦恼吗?软件加密控件给您的软件一个强大的安全保护伞,我们取得的硬盘序列号是硬盘的出厂序列号,不会随着系统的安装、硬盘的格式化等操作而改变,通过这个序列号制作的注册码只能在一台计算机当中安装,从而 起到对您的软件产品的保护作用。
软件加密控件采用纯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