您所在位置：主题：VB给软件加注册
yzai
[专家分：20] 发布于 2008-07-02 17:56:00
软件给用户使用后，如果他没有注册，则可以让他使用30次！如果30次以后还没有注册，则不能在使用！
一般使用次数的计算放在什么地方？怎么样实现注册,实现的原理是什么,怎么样知道有没有注册？
（注册的安全性要求不高） z最好留下源码做与研究！谢谢
利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码，注册时提交此码，经过软件著作权人加以运算，给出注册码
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
请高手门帮我检查下这段代码！！！！！！！缺少语句结束
高手们如果有源码请留给小弟做与研究！谢谢，
一般使用次数的计算放在什么地方？怎么样实现注册,实现的原理是什么,怎么样知道有没有注册？
（注册的安全性要求不高） z最好留下源码做与研究！谢谢
利用API中的“GetVolumeInformation”函数提取使用者机器的硬盘序列号为特征码，注册时提交此码，经过软件著作权人加以运算，给出注册码
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
请高手门帮我检查下这段代码！！！！！！！缺少语句结束
高手们如果有源码请留给小弟做与研究！谢谢，
