| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 已经注册过的程序 在线升级后如何不用再次升级？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54458) |
| -- 作者：李孝春 -- 发布时间：2014/7/29 2:18:00 -- 已经注册过的程序 在线升级后如何不用再次升级？ 在项目窗体打开后 含有如下代码： 经查询相关论坛例子及帮助 貌似写入注册表时候升级后可以不用重新注册？？？求解 下面的代码如何更改 让之实现升级后不用再次注册即可使用 If GetConfigValue("试用起始日",#1/1/2000#) = #1/1/2000# Then SaveConfigValue("试用起始日",Date.Today) End If Dim usetoday As Date = GetConfigValue("试用日期",Date.today) Dim Regok As Boolean = getconfigvalue("注册状态" & ComputerId,False) Dim startday As Date = GetConfigValue("试用起始日",#1/1/2000#) If regok = False Then If Date.Today < usetoday Then msgbox("系统时间被非法修改,不能进入系统!") syscmd.project.Exit() Return End If If Date.Today > startday.AddDays(2) Then Forms("我要注册").open Return End If End If |
| -- 作者：blackzhu -- 发布时间：2014/7/29 7:33:00 -- 你不把注册窗口的代码拿出来看看,谁知道呀 |
| -- 作者：有点甜 -- 发布时间：2014/7/29 9:19:00 -- 帮助本来就有介绍
http://www.foxtable.com/help/topics/1545.htm
|
| -- 作者：李孝春 -- 发布时间：2014/7/29 11:14:00 -- 回复：（blackzhu）你不把注册窗口的代码拿出来看看,谁... 注册窗体打开后代码 Dim CMPCODE As WinForm.TextBox = e.Form.Controls("机器码") Dim REGCODE As WinForm.TextBox = e.Form.Controls("注册码") CMPCODE.Text = ComputerId 点注册后的代码 Dim CmpCode As WinForm.TextBox = e.Form.Controls("机器码") Dim RegCode As WinForm.TextBox = e.Form.Controls("注册码") If cmpcode.text <> DecryptText(regcode.text,"123","123") Then \'若注册码不正确 msgbox("无效的注册码") Else msgbox("感谢您的注册!") SaveConfigValue("注册状态" ,True) \'若注册成功则保存设置,并关闭窗体 e.Form.close End If Functions.Execute("启动时候判断试用天数") |
| -- 作者：有点甜 -- 发布时间：2014/7/29 11:15:00 -- 参考3楼去做 |
| -- 作者：李孝春 -- 发布时间：2014/7/29 17:40:00 -- 回复：（有点甜） 帮助本来就有介绍 ht... 是参照三楼的做的 但是现在不知道怎么写入注册码到注册表 帮助中的例子代码如下 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) |
| -- 作者：有点甜 -- 发布时间：2014/7/29 17:42:00 -- 呃，实在不知道，就看这个例子
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=54497
|