|
try
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
Else
If n > 2 Then
Forms("注册").Open()
Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp", "Register" & ComputerId, "")
'Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
Else
Syscmd.Project.Exit()
End If
End If
If n > 5 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
'n = n + 1
'n = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",0)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",n + 1)
catch ex as exception
Syscmd.Project.Exit()
end try
|
加好友 
发短信
Post By：2017/8/29 10:19:00 [只看该作者]
