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

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

有一个注册窗口，我想想实现：

（1）打开程序后首先判断是否已经注册，如果已经注册，则表示为正式版，进入正常程序界面。

（2）如果软件未注册，软件试用次数为60次，当达到30次后，当进入程序前打开注册窗体，如果单击注册按钮时则根据机器硬件信息获取注册码，根据注册码来注册为正式版，如果单击取消按钮则取消注册，进入正常程序；如果未注册版试用次数达到60次如果还未注册，单击取消按钮则直接退出程序。

    我在帮助文件中看到，用“SaveConfigValue”函数保存进入程序次数，使用次数是保存在设置信息中的，而设置信息是存储在项目文件自身中的，所以覆盖项目文件，意味着使用次数会归零，用户可以继续使用。我想将使用次数同时保存到注册中，运行程序后同时判断“项目文件”和“注册表”的值，如果有任何一个值满足相应的条件时就执行相应的代码，这样即使覆盖项目文件，试用版用户也不能再继续使用了。

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 > 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 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

 这样只是将使用次数储存在设置信息中的，而设置信息是存储在项目文件自身中，通知执行相应的代码，怎么同时将使用次数储存在注册表中和同时判断其条件执行相应的代码呢？ 

Dim Count As Integer
Count = Registry.GetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",0)
Registry.SetValue("HKEY_CURRENT_USER\\Software\\MyApp","Count",Count + 1)
Output.Show(Count)

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)