回复可见- -好晚了睡觉去!
.版本 2
.支持库 spec
.支持库 dp1
.支持库 EThread
.支持库 internet
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 文本, 文本型
.如果真 (寻找文件 (“C:\Program Files\WinRAR\加密文件.ini”, ) ≠ “加密文件.ini”) ' 最好写隐蔽一点的位置
.如果 (取时间部分 (取北京时间 (), #秒) ≥ 51)
文本 = 到文本 (增减时间 (增减时间 (取北京时间 (), #秒, 60 - 取时间部分 (取北京时间 (), #秒)), #分钟, 1))
调试输出 (文本)
.否则
文本 = 到文本 (增减时间 (取北京时间 (), #秒, 10)) ' 10秒关闭
调试输出 (文本)
.如果结束
写到文件 (取运行目录 () + “\加密文件.ini”, 加密数据 (到字节集 (文本), “我要加密”, 2))
.如果真结束
启动线程 (&取时间, , )
.子程序 取北京时间, 日期时间型, 公开
.局部变量 返回文本, 文本型
.局部变量 取出的时间, 文本型
.局部变量 时间, 日期时间型
返回文本 = 到文本 (HTTP读文件 (“http://open.baidu.com/special/time/”))
取出的时间 = 文本_取出中间文本 (返回文本, “window.baidu_time(”, “)”, , )
时间 = 增减时间 ([1970年1月1日8时], #秒, 到数值 (取出的时间) ÷ 1000)
返回 (时间)
.子程序 取时间
.局部变量 加密文本, 字节集
.局部变量 文本, 文本型
.局部变量 句柄, 整数型
.判断循环首 (文本 ≠ “额呵呵”)
启动线程 (&取北京时间, , 句柄)
加密文本 = 读入文件 (“C:\Program Files\WinRAR\加密文件.ini”) ' 最好写隐蔽一点的位置
文本 = 到文本 (解密数据 (加密文本, “我要加密”, #RC4算法))
.如果 (到整数 (取时间间隔 (到时间 (文本), 取北京时间 (), #秒)) ≥ 0)
.否则
结束 ()
.如果结束
关闭线程句柄 (句柄)
延时 (1000 × 1)
.判断循环尾 ()
试用10秒.zip
(124.67 KB, 下载次数: 270)
|