7、最后增加一个计划,执行间隔为10000毫秒,也就是10秒,计划代码为:
If UKey.Encrypt1("abc") <> "E5FC1B19625C5C4A" Then MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) DataTables.Save() Syscmd.Project.ExitEnd If
上面的代码,每10秒钟执行一次,采用固化加密函数Encrypt1判断你提供的UKey是否依然插在计算机上,如果没有,则保存项目后退出。