易语言简单的限制软件到期时间源码

易语言简单的限制软件到期时间源码
思路是获取北京时间.然后判断软件到期没有...从而限制使用时间.
只是供来学习的.真正的软件测试卡.天卡并不是这样实现的哦.
源码截图

.版本 2
.支持库 script

.程序集 窗口程序集_启动窗口
.程序集变量 文本时间, 文本型
.程序集变量 增加的时间, 日期时间型

.子程序 __启动窗口_创建完毕



.子程序 _时钟1_周期事件

时钟1.时钟周期 ＝ 1000
脚本组件1.执行 (#js)
标签1.标题 ＝ “当前北京时间：” ＋ 脚本组件1.运行 (“showtime”, )


.子程序 _按钮1_被单击

按钮1.禁止 ＝ 真
_启动窗口.标题 ＝ “程序正常使用中”
编辑框1.禁止 ＝ 真
脚本组件1.执行 (#js)
文本时间 ＝ 脚本组件1.运行 (“showtime”, )
增加的时间 ＝ 增减时间 (到时间 (文本时间), 8, 到数值 (编辑框1.内容))

.子程序 _时钟2_周期事件
.局部变量 判断时间, 文本型
.局部变量 数字, 整数型

时钟2.时钟周期 ＝ 1000
脚本组件1.执行 (#js)
判断时间 ＝ 脚本组件1.运行 (“showtime”, )
数字 ＝ 取时间间隔 (增加的时间, 到时间 (判断时间), 8)
.如果 (数字 ≤ 0)
    时钟2.销毁 ()
    按钮2.销毁 ()
    _启动窗口.标题 ＝ “程序使用到期了”
    返回 ()
.否则
    _启动窗口.标题 ＝ “程序正常使用中”
.如果结束


.子程序 _按钮2_被单击

信息框 (“易语言学习吧www.eyy8.vip”, 0, , )

复制代码