至顶网›软件频道 ›基础软件›Visual Basic电子注册版软件的实现

Visual Basic电子注册版软件的实现

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

现在盗版软件越来越多，怎么样防止盗版呢?今天和大家一起来学习一下VB制作注册版软件，呵呵。

作者：佚名来源：论坛整理 2007年11月20日

现在盗版软件越来越多，怎么样防止盗版呢?今天和大家一起来学习一下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
　　………
　　‘读取是否注册的信息，如何控制这里不再说明
　　………
　　Call GetVolumeInformation("C:\", TempStr1, 256, GetVal, TempLon1, TempLon2, TempStr2, 256)
　　Text1.Text = GetVal ‘提取本机C盘的序列号至文本框一
　　End Sub

　　将如下程序代码添加到Command1的Command1_Click事件中：

以下是引用片段：
　　Private Sub Command1_Click()
　　If Text2 〈〉 CStr(GetVal) Then
　　MsgBox "注册码不正确，请认真检查输入是否正确。"
　　Else
　　MsgBox "你已经成功注册，请重新启动本软件。"
　　………
　　(将正确注册的信息写入，使软件功能以后不受限制。具体方法依个人爱好进行设置。)
　　………
　　End If
　　End Sub

　　至此，我们可以运行一下程序。你会发现我们已经简单地实现了利用硬盘序列号制作电子注册版软件的功能。

查看本文来源

Visual Basic电子注册版软件的实现

VIP专区

VIP用户

普通用户

邮件订阅

如果您非常迫切的想了解IT领域最新产品与技术信息，那么订阅至顶网技术邮件将是您的最佳途径之一。

重磅专题

往期文章

Visual Basic电子注册版软件的实现

业界热点: