这段代码按理来说应该是正确的,
但就是达不到效果:
如果注册码正确执行完绿色的代码是不是应该停止了?不再执行后面 If n > 30 Then判断了
另外我注册表项改成了cncgl,有影响吗?
请老师指点一下
Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\cncgl","Count",0)
Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\cncgl","Register" & HardDiskID,"")
Registry.SetValue("HKEY_CURRENT_USER\Software\cncgl","Count", n+1)
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = HardDiskID Then '如果注册码正确
OK = True
这里是不是应该加个停止执行的代码?加Return 不起作用,应该怎么写?
Else
If n > 30 Then
Forms("注册").Open()
Code = Registry.GetValue("HKEY_CURRENT_USER\Software\cncgl","Register" & HardDiskID,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = HardDiskID Then '如果注册码正确
OK = True
End If
End If
Return 加上这个代码后面的不再执行了
If n > 60 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
[此贴子已经被作者于2020/6/2 20:26:50编辑过]