Foxtable(狐表)用户栏目专家坐堂 → 官方配套ukey问题


  共有4389人关注过本帖树形打印复制链接

主题:官方配套ukey问题

帅哥哟,离线,有人找我吗?
teng0731
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:459 积分:3471 威望:0 精华:0 注册:2011/6/6 11:22:00
  发帖心情 Post By:2019/12/29 20:53:00 [显示全部帖子]

帮助文件中的:软件加密与授权示例

7、最后增加一个计划,执行间隔为10000毫秒,也就是10秒,计划代码为:

If UKey.Encrypt1("abc") <> "E5FC1B19625C5C4A" Then
   
MessageBox.Show("请插上XX公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    DataTables.Save()
    Syscmd.Project.
Exit

End
If

上面的代码,每10秒钟执行一次,采用固化加密函数Encrypt1判断你提供的UKey是否依然插在计算机上,如果没有,则保存项目后退出。


 回到顶部