主题：[求助]

Syscmd.Project.Exit()	正常退出Foxtable
Syscmd.Project.Exit(True)	先保存数据，然后退出Foxtable
Syscmd.Project.Exit(False)	不保存数据，强行退出Foxtable

那你就改成这句代码

 

 只要注册成功，就不会每次都弹出注册窗口啊

请拷贝afteropenproject的代码到确定按钮中去，对应删除一些不必要的即可。

 

注册码参考

 

Output.Show(EncryptText("用户提供的机器码","abc","abc"))

 

 

 

Dim Code As String = e.Form.Controls("TextBox2").Text
Dim ok As Boolean = False
try
    If DecryptText(Code,"abc","abc") = ComputerId Then
        ok = True
    End If
catch ex As exception
   
End try

If ok Then
    SaveConfigValue("Register" & ComputerId, code)
    e.Form.Close()
Else
    msgbox("注册码错误")
End If

afteropenproject事件

 

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
Else
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
try
    If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
        OK = True
    Else
        Ok = False
    End If
catch ex As exception
    ok = False
End try
If Ok = False Then
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        System.Diagnostics.Process.GetProcessesByName("Foxtable")(0).Kill
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

  报什么错，贴出来看。