主题：我想做２个注册窗口中，怎样做？

 那你就在注册按钮那里判断注册码是否正确才对啊。

原来的用这种方法搞不了，现在改了限时间与限次数，用下面的代码有点问题，每次都显示注册窗口。

 

Dim usecount As Integer = GetConfigValue("试用次数",0)   '定义一个整数变量,来记录系统打开次数

Dim RegOk As Boolean = GetConfigValue("注册状态",False)  '定义一个逻辑变量,来记录注册成功与否

If regok = False Then   '若是未注册状态

    usecount = usecount +1  '则计数器+1

    SaveConfigValue("试用次数",usecount) '保存试用次数

    If usecount >55 Then   '若试用次数超过5次

        Forms("注册").open    '打开注册窗体

        Return

    End If

End If

If GetConfigValue("试用起始日",#1/1/2000#) = #1/1/2000# Then

    '定义一个试用起始日的变量,让默认日期为早期时间, 若是第一次运行,则将试用日期设为当天

    SaveConfigValue("试用起始日",Date.Today)

End If

Dim usetoday As Date = GetConfigValue("试用日期",Date.today)  '定义一个日期变量,来记录系统本次打开日期

Dim Regok1 As Boolean = getconfigvalue("注册状态",False)   '定义一个逻辑变量,用来记录注册成功与否

Dim startday As Date = GetConfigValue("试用起始日",#1/1/2000#) '定义一个日期变量,来记录第一次打开系统的日期

If regok1 = False Then    '若是未注册状态

    If Date.Today < usetoday Then  '若当前日期小于上一次的试用日期,则说明系统时间被修改

        msgbox("系统时间被非法修改,不能进入系统!")  '给消息提示

        syscmd.project.Exit()   '强制退出系统

        Return

    End If

    If Date.Today > startday.AddDays(25) Then   '若今天比第一次打开系统的日期过去3天了

        Forms("注册").open

        Return         '返回,不执行后面的打开窗口1的代码

    End If

End If

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

注册窗口

AfterLoad 代码

Dim RegOk As Boolean = getconfigvalue("注册状态",False)   '定义注册状态的变量
Dim usecount As Integer  = GetConfigValue("试用次数",1) '定义试用次数
Dim reg As WinForm.Label = e.Form.Controls("Label1")
If regok = False Then  '若未注册
    reg.text = "软件未注册,还能试用" & 60-usecount & "次"
Else
    reg.text = "软件已注册"
End If
Dim regok1 As Boolean = getconfigvalue("注册状态",False) '定义注册状态的变量
Dim startday As Date = GetConfigValue("试用起始日",Date.Today)   '定义第一次试用的日期
Dim reg1 As WinForm.Label = e.Form.Controls("Label2")
Dim tp As TimeSpan = Date.Today - startday
If regok1 = False  Then  '若未注册
    reg1.text = "软件未注册,还能试用" & 30-tp.Days & "天"
Else
    reg1.text = "软件已注册"
End If
Dim CMPCODE As WinForm.TextBox = e.Form.Controls("机器码")
Dim REGCODE As WinForm.TextBox = e.Form.Controls("注册码")

CMPCODE.Text = ComputerId

1、你始终没有给 注册状态 赋值，注册成功后要赋值

 

setconfigvalue("注册状态", true)

 

2、使用之前要重置各个值

 

SetConfigValue("试用次数",0)

SetConfigValue("试用日期",Date.today)

setconfigvalue("注册状态", true)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:注册窗口.foxdb

请问重新注册按钮是不是发布前按一按复位一下才可以

 是的，要测试，就初始化一下。

好的，谢谢老师指点