AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？
有没有办法只弹出注册窗口 不弹出狐表主程序 谢谢各位老师
MainTable=Tables("表a")
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
'Dim sucess As Boolean = False
'mu = new System.Threading.Mutex(True, "12+3措施暨法律文书规范化",sucess)
'If not sucess Then
'Dim Result As DialogResult
'Result = MessageBox.Show("同一个软件只能打开一次!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'If Result = DialogResult.Yes Then
'Syscmd.Project.Exit(False)
'End If
'Else
vars("当前年度")=Date.today.Year
vars("当前月份")=Date.today.Month
Dim web As new WebPlatform.ProStart()
web.Show()
'End If
Else
If n > 1 Then
Forms("注册").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
OK = True
End If
End If
End If
n = n + 1
SaveConfigValue("Count",n)
加好友 
发短信
Post By：2023/4/14 8:42:00 [只看该作者]
此主题相关图片如下：捕获.png