设置程序试用时间！大神勿喷，秒破

人善帝王心 · 发表于 2015-3-19 00:00:43

回复可见- -好晚了睡觉去！
.版本 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)

小林子哥哥 · 发表于 2023-11-5 12:12:53

啊啊啊啊啊啊啊啊啊啊啊

mh3400425 · 发表于 2022-7-19 23:16:33

学习了，支持

w4702 · 发表于 2022-5-29 19:25:53

大师兄是反派 · 发表于 2021-4-17 11:59:11

珠海悠长假期 · 发表于 2021-4-16 09:42:39

支持一下

衫口组 · 发表于 2020-11-25 16:13:46

111111111111111111111111111

的好哇好哇还 · 发表于 2019-6-8 15:46:36

6666666666666666

1929791319 · 发表于 2018-10-17 13:28:20

#在这里快速回复#感谢楼主分享

603238412 · 发表于 2017-10-26 23:09:11

1111111111111111111111111111

梦到醒不来的梦 · 发表于 2017-6-4 10:38:40

6666666666666666666666666666666666666666666666666666666666666666

		自动登录	找回密码
密码			注册

[易语言纯源码] 设置程序试用时间！大神勿喷，秒破