以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]软件授权  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86763)
--  作者：zcgmxf
--  发布时间：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
--  发布时间：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