如何限制打包分发系统的客户使用次数？

[leongwong]

我现在负责一个小型的通用系统，当此系统测试版分发后，需要对客户的安装系统后的使用次数进行限制，我前期的方法是通过时间限制，这种方法显的很死板，不可取，而且客户反馈也不是很好。因为分发出去的测试版很多,不利于统一控制！我现在的思路是，自客户安装之日起，给予一定的使用次数或使用天数，不知各位老大有何高招？

[Tiger_Zhao]

用不用数据库，用的话就在数据库某个地方存放一个日期值，首次启动时赋值，以后每次启动时与当前时间进行比较，超过一定范围就过期。
没有数据库就只有用文件了。

[aiur2000]

简单点的就是写注册表再加密

[mingtian2008]

使用次数 很好做的 ！！
你可以写到注册表中 或写到文件中
每次启动前 读取 是否到期

如果写到文件中，最好写道系统目入下，用一个很隐蔽的名字！！

[jifangkeji]

最好别遇上略高一些人，查找系统当前日期更改的文件就很容易找出你埋下的文件及内容，注册表也很容易找到更改的内容，所以用以上方法不要忘记对日期加密！

[lzj34]

哦

[itcoco]

先加密,把要写到注册表里的内容加密
加密有好多算法,看你用什么了,可以自己写个,读的时候再解密

[leongwong]

不好意思，楼上的各位，我出差刚回来！
楼上的能说细点吗？
我以前从来都没有用过注册表键值，能给个例子最好了！
jifangkeji(吉方科技) ，如何对日期加密？

[jifangkeji]

楼上说的对，其实自己设计一个加密算法就行，必竞这样破解的人不多，比如，把生成的日期作为纯字符串处理，按位都转换为ASCC码，对这个数值形ASCC码进行复杂计算（方法当然你自己想，越复杂越不容易被破），读时按相反的方法运算还原出真正日期，就这样加密解密即可。

VB本身带的注册表读写功能太低，下面给出一个实用的读/写代码，可以操作任何地方注册表（对WIN2000/XP前提是你有权限）；

以下是模块中的内容,读字串形注册表项照抄即可：
'API声明
Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
'以下是设置键值子程序
Sub gpvSetKeyStringValue(ByVal plKey As Long, ByVal psKey As String, ByVal psSubKey As String, ByVal psKeyValue As String)
Dim glStatus As Long
Dim llKeyID As Long
glStatus = 0&
If Len(psKey) = 0 Then
glStatus = -1002
Exit Sub
End If
glStatus = RegOpenKey(plKey, psKey, llKeyID)
If glStatus = 0& Then
If Len(psKeyValue) = 0 Then
glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, 1, 0&, 0&)
Else
glStatus = RegSetValueEx(llKeyID, psSubKey, 0&, 1, ByVal psKeyValue, LenB(StrConv(psKeyValue, vbFromUnicode)))
End If
glStatus = RegCloseKey(llKeyID)
End If
End Sub

'以下都是窗体中的代码了:

'读出注册表键值
'下面假设要读HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\PPP中的键值
Dim ,a As Long,rc As Long, hKey As Long, KeyValType As Long, KeyValSize As Long, tmpval As String
a = RegOpenKeyEx(&H80000002, "Software\Microsoft\Windows\CurrentVersion", 0, 131135, hKey)
'上行&H80000002指主键HKEY_LOCAL_MACHINE,Software\Microsoft\Windows\CurrentVersion就是子键
tmpval = String$(1024, 0): KeyValSize = 1024
rc = RegQueryValueEx(hKey, "PPP", 0, KeyValType, tmpval, KeyValSize)'其中PPP是要读的项目名
a = RegCloseKey(hKey) '关闭注册表
If InStr(tmpval, Chr(0)) > 0 Then '整理数据,tmpval就是取出的键值字串
tmpval = Left(tmpval, InStr(tmpval, Chr(0)) - 1)
Else
tmpval = Left(tmpval, InStr(tmpval, Chr(0)))
End If

'向注册表写入就简单多了,只一句代码(如果子键或项目不存在还会自动创建,存在就改写为新的)
gpvSetKeyStringValue &H80000002, "Software\Microsoft\Windows\CurrentVersion", "PPP", "2004-12-31"
'上行中第一位置为写入的主键位置,第二位置为子键位置,第三位置为项目名,第四位置为具体键值字串

根据上面道理,自己设计把这个检测标志隐藏在哪注册表表哪个子键下,当然项目名PPP你也自己定.

[lndlwwh830]

让程序使用十次
Private Sub Form_Load()

Dim path As String '定义文件入境
path = App.path & "\" & "cishu.txt" '得到入境


On Error GoTo e '判断文件是否出在,不出在跳出创建文件

Open path For Input As #1 '读文件

Input #1, s1

Close #1
If s1 > 3 Then ' 判断是否大于次数

MsgBox "你的试用其,已经到期", vbCritical, "提示"
End
Else
Form1.Caption = "你是第" & s1 & "次使用"
End If


e:

If s1 = "" Then


Open path For Output As #1
Write #1, 1

Close #1

Form1.Caption = "你是第1次使用"
End If




End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim path As String
path = App.path & "\" & "cishu.txt"
Open path For Input As #1
Input #1, cishu
Close #1
cishu = cishu + 1
Open path For Output As #1
Write #1, cishu
Close #1


End Sub