| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 代码测试 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83691) |
| -- 作者：爱相随 -- 发布时间：2016/4/14 16:53:00 -- 代码测试 老师，下面代码是注册表的代码，经测试，有一次出现过注册窗口，以后就不再出现了，通过测试，提示第2段和第4段有问题。 另外，第三段没有提示，但不出现注册窗口（是我增加的） Dim n As Integer = GetConfigValue("Count",1) Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim Ok As Boolean If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确 OK = True MessageBox.Show(1) Else If n > 5 Then Forms("注册表").Open() Code = GetConfigValue("Register" & ComputerId,"") If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确 OK = True End If End If MessageBox.Show(2) If n > 20 AndAlso Ok = False Then Messagebox.Show("您正在使用的产品未注册,请注册后使用!") Forms("注册表").Open() Syscmd.Project.Exit() MessageBox.Show(3) End If End If n = n + 1 SaveConfigValue("Count",n) MessageBox.Show(4) |
| -- 作者：大红袍 -- 发布时间：2016/4/14 16:57:00 -- If n > 20 AndAlso Ok = False Then Messagebox.Show("您正在使用的产品未注册,请注册后使用!")
Forms("注册表").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
OK = True
End If MessageBox.Show(3)
If Ok = False Then
Syscmd.Project.Exit()
End If
End If
|
| -- 作者：爱相随 -- 发布时间：2016/4/14 17:11:00 -- 还是提示代码2，出现"您正在使用的产品未注册,请注册后使用!"窗口，但不出现注册表窗口，然后退出。麻烦老师啦。。。 |
| -- 作者：大红袍 -- 发布时间：2016/4/14 17:13:00 -- 你这个注册窗口肯定不是模式窗口，要弄成模式的 |
| -- 作者：爱相随 -- 发布时间：2016/4/14 17:34:00 -- 但是，注册后第一次登录还是提示代码编号2、3、4，注册后第二次登录，提示代码编3、4，没有提示2 |
| -- 作者：大红袍 -- 发布时间：2016/4/14 17:37:00 -- 不可能，如果注册码正确，肯定提示的是1。
你注册窗口肯定没有把注册码保存起来啊 |