Foxtable(狐表) → 用户栏目 → 专家坐堂 → 已经注册过的程序 在线升级后如何不用再次升级？


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

主题：已经注册过的程序 在线升级后如何不用再次升级？
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		已经注册过的程序 在线升级后如何不用再次升级？  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（blackzhu）你不把注册窗口的代码拿出来看看,谁...  发帖心情 Post By：2014/7/29 11:14:00 [显示全部帖子]

注册窗体打开后代码

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("启动时候判断试用天数")
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点甜） 帮助本来就有介绍 ht...  发帖心情 Post By：2014/7/29 17:40:00 [显示全部帖子]

是参照三楼的做的 但是现在不知道怎么写入注册码到注册表

帮助中的例子代码如下
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)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询