[求助]加密 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]加密

共有2746人关注过本帖树形打印复制链接主题：[求助]加密

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107720 积分：547933 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 8:58:00 [显示全部帖子]

Dim n As Integer = GetConfigValue("Count",1)

dim n2 = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","n",1)

if n <> n2 then

msgbox("试用异常")

Syscmd.Project.Exit()

end if

Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean

……

SaveConfigValue("Count",n)

Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",n)

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107720 积分：547933 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 9:40:00 [显示全部帖子]

命令窗口执行

SaveConfigValue("Count",1)

Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",1)

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107720 积分：547933 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 10:41:00 [显示全部帖子]

上传项目实例测试。发布后的项目不要调用5楼的代码

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107720 积分：547933 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 11:17:00 [显示全部帖子]

卸载后重装指什么？foxtable？发布后的程序？

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107720 积分：547933 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/4/28 11:26:00 [显示全部帖子]

如果是使用Advanced Installer等安装程序打包的。设置打包的时候看看能不能去掉清理注册表的设置。或者试试把注册表的路径改为其它地方：Registry.SetValue("HKEY_CURRENT_USER\Software\aaaa","n",n)，不要和程序目录有关系

下一主题 >> << 上一主题

主题：[求助]加密