主题：关于注册问题

 参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=89665&skin=0

你要获取什么值判断什么值？逻辑是什么？具体你的问题。

Dim n As Integer = GetConfigValue("Count",1)
Dim Count As Integer
Count = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",0)

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 > 5 OrElse count > 5 Then
        Forms("注册窗体").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If (n >10 OrElse count > 10) AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
SaveConfigValue("Count",n+1)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",Count + 1)

你弹出值看看 msgbox(n & "  " & count)

确定按钮

try
    If DecryptText(e.Form.Controls("zhucemaTextBox").Value,"abc","abc") = ComputerId Then
        SaveConfigValue("Register" & ComputerId, e.Form.Controls("zhucemaTextBox").Value)
        e.Form.Close()
    Else
        msgbox("注册码不正确")
    End If
catch ex As exception
    msgbox("注册码不正确")
End try

 注册码参考

至此我们为自己的项目文件加上了试用和注册功能，用户提供机器码之后，可以在命令窗口执行下面的代码计算得出注册码：

Output.Show(EncryptText("用户提供的机器码","abc","abc"))

清零

SaveConfigValue("Register" & ComputerId, "")

回复17楼，代码没问题。你如果要清楚其它数据，同样写啊

SaveConfigValue("Count",0)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count", 0)