• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

用visual basic为软件增加注册功能

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

　　 经过摸索，笔者利用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
　　 至此，我们可以运行一下程序。你会发现我们已经简单地实现了利用硬盘序列号制作电子注册版软件的功能。

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

Java   Asp   PHP   .Net   XML   C/C++   CGI   VB   Jsp   J2ee   J2se   J2me   EJB   Servlet   Tomcat   Resin   Struts   Weblogic   Eclipse   ANT   GUI   JMS   Web servise   IDEA   Webphere   Hibernate   Spring   Jboss   Applet   Swing   Socket   Javamail   Perl   Ajax   P2P   安全   模式   框架   测试   开源   游戏

SQL数据库相关

My-SQL   Ms-SQL   Access   DB2   Oracle   Sybase   SQLserver   索引   存储过程   加密   数据库   分页   视图  

手机无线相关

3G   Wap   CDMA   GRPS   GSM   IVR   彩信   短信   无线   增值业务

网页设计制作相关

HTML   CSS   网页配色   网页特效   Javascript   VBscript   Dreamweaver   Frontpage   JS   Web   网站设计

网站建设推广相关

建站经验   网站优化   网站排名   推广   Alexa

操作系统/服务器相关

Windows XP   Windows 2000   Windows 2003   Windows Me   Windows 9.x   Linux   UNIX   注册表   操作系统   服务器   应用服务器

图形图像多媒体相关

Photoshop   Fireworks   Flash   Coreldraw   Illustrator   Freehand   Photoimpact   多媒体   图形图像

标准 网站致力的规范