用VB为软件增加注册功能

文章作者 100test 发表时间 2007:09:06 12:01:15
来源 100Test.Com百考试题网

　　在尊重软件著作权的时代，电子注册版软件的应用也越来越广。它的出现使用户对程序中未受限制的功能有了一定了解，起到了推广和传播作用，同时也很好地保护了制作人的切身利益。那么，我们如何制作一个电子注册版软件呢？

　　经过摸索，笔者利用VB也简单地制作了一个电子注册版软件。

　　设计原理

　　利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码，注册时提交此码，经过软件著作权人加以运算，给出注册码，最后软件使用人输入注册码完成整个注册过程（为使说明简单，本例中以特征码减101做为注册码）。

　　新建一模块文件

　　新建一模块文件，并将如下声明的语句和常量添加到Module1.Bas模块中：

　　Declare Function GetVolumeInformation 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

　　Global GetVal As Long

　　编程时需注意的是要将声明语句写在同一行中。

　　窗体设置

　　在Form1上添加2个文本框，Name属性分别设置为Text1、Text2；再添加1个按钮，Name属性设置为Command1。

　　添加代码

　　将如下程序代码添加到Form1的Form1_Load事件中：

　　Private Sub Form_Load()

　　Dim TempStr1 As String * 256

　　Dim TempStr2 As String * 256

　　Dim TempLon1 As Long

　　Dim TempLon2 As Long
　　………
　　‘读取是否注册的信息，如何控制这里不再说明