主题：拔掉加密狗后，增加的计划管理不停地弹窗

修改代码

if ShowAppWindow("提示-加密狗", 1) = false then
   MessageBox.Show("请插上XX公司提供的UKey!","提示-加密狗",MessageBoxButtons.OK,MessageBoxIcon.Information)
   DataTables.Save()
   'Syscmd.Project.Exit
End If