每次启动都会启动
注册窗口，请老师指导。
Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",1)
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" Then '如果注册码正确
Dim str As String = DecryptText(Code,"abcd","abc") <<<<=====这里可以自己定义还是只能用ABC
Dim ary() As String = str.Split(",")
If ary.length = 2 AndAlso ary(1) >= Date.Now AndAlso ary(0) = ComputerId Then
OK = True
End If
End If
If ok = False Then
If n > 5 Then
Forms("注册码").Open()
Code = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abcd","abc") = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 20 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","count",n + 1)
加好友 
发短信
Post By：2019/4/15 10:23:00 [显示全部帖子]
