以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  注册中的一个问题：我想一年后重新再注册怎么设计？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63365)
--  作者：lrh9537
--  发布时间：2015/1/19 16:25:00
--  注册中的一个问题：我想一年后重新再注册怎么设计？

Dim CmpCode As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim RegCode As WinForm.TextBox = e.Form.Controls("TextBox2")

If cmpcode.text <> DecryptText(regcode.text,"pao","pao") Then    \'若注册码不正确
    msgbox("无效的注册码")
Else
    msgbox("感谢您的注册!")
    SaveConfigValue("注册状态" ,True)    \'若注册成功则保存设置,并关闭窗体
    e.Form.close
End If

 

我的想法：使用一年后原注册码过期，重新注册才能使用，同时不能使用原注册码，须更换成新的注册码，怎么设计？请老师帮忙。

如第一年用aaa获得注册码，第二年用bbb,第三年用CCC，以此类推，先设计10年的吧，If cmpcode.text <> DecryptText(regcode.text,"pao","pao") Then

 
--  作者：Bin
--  发布时间：2015/1/19 16:29:00
--  
 

Dim CmpCode As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim RegCode As WinForm.TextBox = e.Form.Controls("TextBox2")

If cmpcode.text <> DecryptText(regcode.text,"pao","pao") Then    \'若注册码不正确
    msgbox("无效的注册码")
Else
    msgbox("感谢您的注册!")
    SaveConfigValue("注册状态" ,True)    \'若注册成功则保存设置,并关闭窗体

    SaveConfigValue("注册日期" ,date.today.addyears(1))
    e.Form.close
End If



储存注册日期,  然后和当前日期对比
--  作者：lrh9537
--  发布时间：2015/1/19 16:37:00
--  

一年后换注册码怎么换？怎么自动把pao换成aaa
--  作者：Bin
--  发布时间：2015/1/19 16:38:00
--  
启动项目前.检查验证注册日期.和当前日期对比. 已经超过一年,就打开注册窗口.
--  作者：Bin
--  发布时间：2015/1/19 16:44:00
--  
日期验证,在机器码上加上到期日期吧.

Output.Show(EncryptText("用户提供的机器码 " & Date.Today,"abc","abc"))
--  作者：lrh9537
--  发布时间：2015/1/19 16:44:00
--  

再次注册的话如果用原注册码不是就能注册了吗，起不到限制的作用啊
--  作者：有点甜
--  发布时间：2015/1/19 16:45:00
--  
 看5楼。
--  作者：Bin
--  发布时间：2015/1/19 16:45:00
--  
看5楼
--  作者：Bin
--  发布时间：2015/1/19 16:47:00
--  
Dim code = EncryptText("用户提供的机器码 " & Date.Today,"abc","abc")
Output.Show(code)
Output.Show("到期日期是:" & DecryptText(code,"abc","abc").Split(" ")(1))