热搜
您的位置:首页 >> 体育

VisualBasic电子注册版软件的实现

2019年11月05日 栏目:体育

现在盗版软件越来越多,怎么样防止盗版呢?今天和大家一起来学习一下VB制作注册版软件,呵呵。  利用API中的“GetVolumeInform

现在盗版软件越来越多,怎么样防止盗版呢?今天和大家一起来学习一下VB制作注册版软件,呵呵。  利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码,注册时提交此码,经过软件著作权人加以运算,给出注册码,软件使用人输入注册码完成整个注册过程(为使说明简单,本例中以特征码减101做为注册码)。

新建一模块文件

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

以下是引用片段:

DeclareFunctionGetVolumeInformationLib"kernel32"Alias"GetVolumeInformationA"

(ByVallpRootPathNameAsString,ByVallpVolumeNameBufferAsString,ByVal

nVolumeNameSizeAsLong,lpVolumeSerialNumberAsLong,lpMaximumComponentLengthAs

Long,lpFileSystemFlagsAsLong,ByVallpFileSystemNameBufferAsString,ByVal

nFileSystemNameSizeAsLong)AsLong

GlobalGetValAsLong

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

窗体设置

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

添加代码

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

以下是引用片段:

PrivateSubForm_Load()

DimTempStr1AsString*256

DimTempStr2AsString*256

DimTempLon1AsLong

DimTempLon2AsLong

………

‘读取是否注册的信息,如何控制这里不再说明

………

CallGetVolumeInformation("C:\",TempStr1,256,GetVal,TempLon1,TempLon2,TempStr2,256)

Text1.Text=GetVal‘提取本机C盘的序列号至文本框一

EndSub

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

以下是引用片段:

PrivateSubCommand1_Click()

IfText2〈〉CStr(GetVal)Then

MsgBox"注册码不正确,请认真检查输入是否正确。"

Else

MsgBox"你已经成功注册,请重新启动本软件。"

………

(将正确注册的信息写入,使软件功能以后不受限制。具体方法依个人爱好进行设置。)

………

EndIf

EndSub

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

查看本文来源

怎样有效缓解牛皮癣症状呢?可以通过这几种方法!
发际线种植有危险吗,一般需要多少钱
王越
银屑病的预防饮食
成人正畸
  • 友情链接
  • 合作媒体