怎么实现将红色部分代码 在项目验证了验证码正确之后再进行运行呢?
有没有更好的办法 除了代码的写法以外:
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"cnsjroom","lixiaochun") = ComputerId Then '如果注册码正确
OK = True
Else
If n > 1 Then
Forms("授权").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"cnsjroom","lixiaochun") = ComputerId Then '如果注册码正确
OK = True
End If
End If
If n > 2 AndAlso Ok = False Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
if ok=true then
CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon.CaptionAlignment = 0
BaseMainForm.Text = "【数据生成】"
MainTable = Tables("表A")
Forms("主窗体").show
TableCaptionVisible = False
RibbonTabs.HideTabHeaderRow = True
end if
[此贴子已经被作者于2021/7/30 12:55:49编辑过]