第一个项目属性：
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
加好友 
发短信
Post By：2015/1/14 11:03:00 [只看该作者]
此主题相关图片如下：qq图片20150114112205.jpg