以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]加密设置问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47166)

--  作者:hrw68529
--  发布时间:2014/3/5 16:43:00
--  [求助]加密设置问题

另一种软件加密方式,使用次数是保存在设置信息中的,而设置信息是存储在项目文件自身中的,所以覆盖项目文件,意味着使用次数会归零,用户可以继续使用。
所以实际应用的时候,应该同时在注册表中保存使用次数,启动的时候同时从设置信息和注册表读取使用次数,并取最大值。
关于注册表的读写,参考:
Registry

那么,这段代码应放在哪里?

Dim Count As Integer
Count = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",0)
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",Count + 1)
Output.Show(Count)


--  作者:Bin
--  发布时间:2014/3/5 16:46:00
--  
放在你希望执行的地方,打开软件就验证.当然是放到BEFOrOpenProject
--  作者:hrw68529
--  发布时间:2014/3/5 17:02:00
--  
谢谢,非常 正确