让你离开电脑

前言

昨天说如果，然而今天发现“可惜没如果”。由于家长不在家，本人自制力又差，为了不给为了留下遗憾，不得不采用终极方案！
没想到，我的网站发布的第一个易语言程序竟然会是这样的……

虽然不是我写的第一个易语言程序，但意义还是极大的。

代码

.版本 2
.支持库 xplib
.支持库 internet
.支持库 shell

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 网络干预文本, 文本型
.局部变量 时间, 日期时间型

XP风格 (3)
.如果 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “是否关机”, ) ＝ “真”)
    .如果 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “开机次数”, ) ≠ “0”)
        写配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “开机次数”, 到文本 (到整数 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “开机次数”, )) － 1))
    .否则
        停止 ()
    .如果结束

    .如果 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “网络干预”, “无”) ≠ “无”)
        网络干预文本 ＝ 到文本 (HTTP读文件 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “网络干预”, “”)))
        网络干预文本 ＝ 子文本替换 (网络干预文本, 字符 (13), , , , 假)
        网络干预文本 ＝ 删全部空 (网络干预文本)
        .如果 (网络干预文本 ＝ “停止关机”)
            停止 ()
        .否则

        .如果结束

    .否则

    .如果结束

    时间 ＝ 到时间 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “到期时间”, ))
    .如果 (取日期 (取现行时间 ()) ＝ 时间)
        停止 ()
    .否则
        关闭系统 (1, 真)
    .如果结束

.否则

.如果结束


.子程序 _按钮1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 输入内容, 文本型

.如果 (信息框 (“注意：确认将自动关闭电脑，请做好准备！”, 1, “提示：”, ) ＝ 0)
    输入框 (“请输入提示文本：”, “提示”, “”, 输入内容, 1, )
    写配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “是否关机”, “真”)
    写配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “到期时间”, 编辑框1.内容)
    写配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “开机次数”, 编辑框2.内容)
    .如果 (编辑框3.内容 ≠ “”)
        写配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “网络干预”, 编辑框3.内容)
    .否则

    .如果结束

    写配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “提示文本”, 输入内容)
    关闭系统 (1, 真)
.否则

.如果结束


.子程序 停止

信息框 (读配置项 (取运行目录 () ＋ “\远离电脑配置.ini”, “远离电脑”, “提示文本”, ), 0, “提示”, )
执行 (2, 取运行目录 (), , , )
结束 ()

界面布局

成品

因为要增加到开机启动项，所以我连以前写的增加开机启动项的软件一起打包了。
打开“创建快捷方式.exe”，电脑用户名：先在桌面选择一个文件，然后右击，属性，安全，对象名称这里Users\和\Desktop之间的那个就是你的电脑用户名
你也可以自行百度开机启动项文件夹。
链接: https://pan.baidu.com/s/1lcOW7P-Gck7O2BSy4P5wmQ
提取码: 6666

查毒

由于使用易语言，报毒是正常的，不敢用就自己用上面的代码编译一个。
哈勃:
https://habo.qq.com/file/showdetail?pk=ADcGZl1pB2IIPVs8U2s%3D
https://habo.qq.com/file/showdetail?pk=ADcGZl1pB2IIPVs8U2o%3D
还有一个挺流行的:
http://r.virscan.org/language/zh-cn/report/e80604194b6b0d047e0f4bf3c2bf4800
http://r.virscan.org/language/zh-cn/report/bf168128e3163767c0850cd6c8c8a11e

最后

由于匆忙，啥版权也没加。如果要转载麻烦加上版权。不说了，我要远离电脑了(๑•̀ㅂ•́)و✧

……发现bug

如果 (取日期 (取现行时间 ()) ＝ 时间)

将这一句的等号改大于或等于，即

如果 (取日期 (取现行时间 ()) >＝ 时间)

此bug若不修复则超过指定日期后不会停止关机……
由于时间关系，自己修复吧！我要开始新生活了！