Foxtable(狐表)用户栏目专家坐堂 → [求助]软件授权


  共有2479人关注过本帖树形打印复制链接

主题:[求助]软件授权

帅哥哟,离线,有人找我吗?
zcgmxf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1653 积分:14702 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助]软件授权  发帖心情 Post By:2016/6/25 12:23:00 [只看该作者]

老师,我的软件授权思路是:

用户登录,如果注册码正确,正常打开系统。否则,打开获取验证码窗口,授权用户有 51b2e-34d90-6842d-f979d-4fa5b 激活码,Rand.NextString(25) 生成,如果激活码正确(最多5从重试机会,不正确强制退出系统),加载表 “激活码” 对应行 获取验证码,显示 激活按钮,点击激活按钮打开获取注册码窗口,如果验证码正确(最多3次重试机会,不正确强制退出系统)生成注册码,并写入 项目文件 project 目录下的 config.txt 中,提示 激活成功。确认后 删除 表 激活码 中对应行(一个激活码只能使用一次)。如果没有激活码,可以试用15天。不知道思路是否严谨。

AfterOpenProject

代码 和 试用按钮 代码 该怎么写。谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.foxdb

[此贴子已经被作者于2016/6/25 12:27:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/6/25 14:41:00 [只看该作者]

AfterOpenProject事件就是从config.txt提取注册码,然后比较注册码是否正确

Dim s As String = FileSys.ReadAllText(ProjectPath & "config.txt")
If s = EncryptText(ComputerId, "abc", "abc") Then
    msgbox("True")'进入系统
Else
    msgbox("False")'获取配置判断日期
End If

试用按钮可以在配置或者注册表记录一下日期
http://www.foxtable.com/help/topics/1544.htm
http://www.foxtable.com/help/topics/2051.htm

 回到顶部