主题：[求助]

 

Dim Code As String = e.Form.Controls("TextBox2").Text
Dim ok As Boolean = False
try
    If DecryptText(Code,"abc","abc") = ComputerId Then
        ok = True
    End If
catch ex As exception
   
End try

If ok Then
    SaveConfigValue("Register" & ComputerId, code)
    e.Form.Close()
Else
    msgbox("注册码错误")
End If

这样写，正确的注册码也会提示错误的。

可以写正确的注册码了，不正确的不可以写。但是还是每次登录都提示注册。

afteropenproject事件

 

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
Else
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

有错误！
此主题相关图片如下：qq截图20141114172742.png

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
try
    If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
        OK = True
    Else
        Ok = False
    End If
catch ex As exception
    ok = False
End try
If Ok = False Then
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

我做了个计划1，上面的错误应该是计划1出的错误吧？

此主题相关图片如下：4.png

  报什么错，贴出来看。