主题：问一个注册的问题，增加一个过期再重新注册怎么写

第一个项目属性：

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("注册状态",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   '若今天比第一次打开系统的日期过去3天了
        Forms("注册").open
        Return
Else
请把这里修改下：       

If Date.Today > startday.AddDays(365) Then  
        regok = False
        Forms("注册").open
        Messagebox.Show("您正在使用的软件已到期,请联系重新注册!")
                Syscmd.Project.Exit()
                Return
            End If
End If
End If

SaveConfigValue("试用日期",Date.Today)   '把今天的日期写入到试用日期的参数值里
Forms("数据处理").open

 

 

第二个注册窗口：

Dim CMPCODE As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim REGCODE As WinForm.TextBox = e.Form.Controls("TextBox2")

CMPCODE.Text = ComputerId

Dim regok As Boolean = getconfigvalue("注册状态",False) '定义注册状态的变量
Dim startday As Date = GetConfigValue("试用起始日",Date.Today)   '定义第一次试用的日期

Dim reg As WinForm.Label = e.Form.Controls("Label3")
Dim tp As TimeSpan = Date.Today - startday

If regok = False  Then  '若未注册
    reg.text = "您使用的是试用版,还能试用" & 3-tp.Days & "天"
Else
请把这里修改下：

 If Date.Today > startday.AddDays(365) Then   '若今天比第一次打开系统的日期过去3天了
        reg.text = "您使用的软件已到期,请重新注册"
        regok = False
        Forms("注册").open
        Return         '返回,不执行后面的打开窗口1的代码
    Else
    reg.text = "您使用的是正式版,使用期限一年,请在一年后重新注册"
End If
End If

 

此主题相关图片如下：qq图片20150114112205.jpg

注册窗口是这个，就是定义一年时间，一年后重新注册，请老师修改下