软件开发者写免费软件根本无利可图,我们必须对免费软件进行限制保护功能,我们可以写一款电子注册版软件,可以对软件进行推广和传播作用,同时也很好地保护了制作人的切身利益。那么,我们如何制作一个电子注册版软件呢?
使用平台,net平台,开发环境:
使用编程语言,visual basic
磨刀不误砍柴工:
利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码,注册时提交此码,经过软件著作权人加以运算,给出注册码,最后软件使用人输入注册码完成整个注册过程(为使说明简单,本例中以特征码减101做为注册码)。
新建一模块文件
新建一模块文件,并将如下声明的语句和常量添加到Module1.Bas模块中:
code:
编程时需注意的是要将声明语句写在同一行中。
窗体设置
在Form1上添加2个文本框,Name属性分别设置为Text1、Text2;再添加1个按钮,Name属性设置为Command1。
添加code
将如下程序代码添加到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 |
最后,我们可以运行一下程序。你会发现我们已经简单地实现了利用硬盘序列号制作电子注册版软件的功能。
当然,你还可以对软件添加javascript弹出广告,获取利润。
adiOS