这是客户端写法
=======================
.版本 2
.程序集 窗口程序集1
.程序集变量 授权信息, 授权信息型
.程序集变量 本机机器码, 文本型
.程序集变量 授权文件路径, 文本型
.程序集变量 网络北京时间, 日期时间型
.子程序 __启动窗口_创建完毕
本机机器码 ＝ 取本机机器码 ()
授权文件路径 ＝ 取运行目录 () ＋ “\授权文件.key”
.如果 (文件是否存在 (授权文件路径) ＝ 真)
' 特别注意：这里的授权密码必须要生成器的密码一致
' 这里获取授权信息后，还可以自己在程序中用时钟不停检测！
授权信息 ＝ 授权验证 (授权文件路径, “1234567890”)
' 特别注意：这里的授权密码必须要生成器的密码一致
.如果 (授权信息.机器码 ＝ 本机机器码)
网络北京时间 ＝ 取北京时间 ()
.如果 (网络北京时间 ≠ [9999年9月9日9时])
.如果 (授权信息.到期时间 ＞ 网络北京时间)
信息框 (“验证成功！”, 0, “验证-提示:”)
授权用户 ()
.否则
删除文件 (授权文件路径)
信息框 (“您的授权文件已经到期，请重新授权！”, 0, “验证-提示:”)
未授权提示信息 ()
.如果结束
.否则
信息框 (“网络异常，获取网络时间错误！”, 0, “验证-提示:”)
结束 ()
.如果结束
.否则
删除文件 (授权文件路径)
信息框 (“该授权文件的机器码与本机不匹配！”, 0, “验证-提示:”)
未授权提示信息 ()
.如果结束
.否则
未授权提示信息 ()
.如果结束
.子程序 未授权提示信息
置剪辑板文本 (本机机器码)
信息框 (“本机机器码：” ＋ 本机机器码 ＋ #换行符 ＋ “机器已经复制，请发给客服获取授权文件”, 0, “验证-提示:”)
结束 ()
.子程序 授权用户
标签_北京时间.标题 ＝ “北京时间：” ＋ 到文本 (网络北京时间)
标签_到期时间.标题 ＝ “到期时间：” ＋ 到文本 (授权信息.到期时间)
时钟_到期时间计算.时钟周期 ＝ 60 × 1000 ' 1分钟检测一次到期
.子程序 _时钟_到期时间计算_周期事件
网络北京时间 ＝ 增减时间 (网络北京时间, #分钟, 1)
标签_北京时间.标题 ＝ “北京时间：” ＋ 到文本 (网络北京时间)
.如果真 (网络北京时间 ≥ 授权信息.到期时间)
时钟_到期时间计算.时钟周期 ＝ 0
信息框 (“您的授权文件已经到期，请重新授权！”, 0, “验证-提示:”)
未授权提示信息 ()
.如果真结束
