| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于试用设置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85848) |
| -- 作者：爱相随 -- 发布时间：2016/6/3 16:54:00 -- 关于试用设置 老师，我根据帮助在项目中加入了试用次数代码，但是无论是带加密狗的原项目文件还是发布后的项目，在新的电脑上打开后，直接弹出注册表，而不是在使用一定的次数后再弹出，Y请老师诊断一下问题出在哪里，谢谢！！ |
| -- 作者：大红袍 -- 发布时间：2016/6/3 17:08:00 -- 至少，要贴出你写的代码啊，或者做个例子发上来。 |
| -- 作者：爱相随 -- 发布时间：2016/6/3 17:14:00 -- 主要事件代码如下： 1、窗口Afterload事件代码： e.Form.Controls("TextBox1").Value = ComputerId e.Form.Controls("TextBox2").Value = GetConfigValue("Register" & ComputerId, "") 2、项目事件AfterOpenProject事件代码： Dim n As Integer = GetConfigValue("Count",1) Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim Ok As Boolean If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确 OK = True Else If n > 40 Then Forms("注册").Open() Code = GetConfigValue("Register" & ComputerId,"") If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确 OK = True End If End If If n > 60 AndAlso Ok = False Then Messagebox.Show("您正在使用的产品已经超出试用次数!") Syscmd.Project.Exit() End If End If n = n + 1 SaveConfigValue("Count",n)
|
| -- 作者：大红袍 -- 发布时间：2016/6/3 17:25:00 -- 发布之前，清空各个值
SaveConfigValue("Count", 1) SaveConfigValue("Register" & ComputerId, "")
[此贴子已经被作者于2016/6/3 18:02:57编辑过]
|
| -- 作者：爱相随 -- 发布时间：2016/6/3 17:29:00 -- 老师，就是不晓得在哪里，通过什么方法去清空那些值。 |
| -- 作者：大红袍 -- 发布时间：2016/6/3 17:31:00 -- 在命令窗口里执行上面代码。 |
| -- 作者：爱相随 -- 发布时间：2016/6/3 17:42:00 -- 按照老师的方法，在命令窗口执行代码SetConfigValue("Count", 1) SetConfigValue("Register" & ComputerId, "")还是出现错误 哎，上传不了截图，以前都可以，以前把截图放在WORD文档上传都可以，今天咋不行了哦
[此贴子已经被作者于2016/6/3 17:45:03编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/6/3 17:48:00 -- SaveConfigValue("Count", 1) saveConfigValue("Register" & ComputerId, "") |
| -- 作者：爱相随 -- 发布时间：2016/6/3 18:02:00 -- 没有提示任何信息，也不晓得清空成功没有 |
| -- 作者：爱相随 -- 发布时间：2016/6/3 18:03:00 -- 谢谢老师的解答，谢谢 |