每次系统开机只允许运行1次

npcwu

6666666666666666666

三克油

谢谢楼主！收藏了。

afu45

l1299587332 发表于 2022-8-9 20:09
GetTickCount64 是毫秒级的取启动时间吗，如果是的话，那达不到每次开机只允许启动一次的效果，我间隔大 ...

GetTickCount64 是毫秒级的

这里没必要按毫秒，是按5秒的误差判断的

经过测试 时间_取北京时间戳 (真) 耗时太长误差较大
可以替换成

  

子程序名	返回值类型	公开	备 注
取时间戳	长整数型

变量名	类 型	静态	数组	备 注
初始时间	日期时间型
时间戳	长整数型

初始时间 ＝ 增减时间 (到时间 (“1970-01-01-00-00-00”), #小时, 8)
返回 (到整数 (取时间间隔 (取现行时间 (), 初始时间, #秒 )))

.版本 2<br /> <br /> .子程序 取时间戳, 长整数型<br /> .局部变量 初始时间, 日期时间型<br /> .局部变量 时间戳, 长整数型<br /> <br /> 初始时间 ＝ 增减时间 (到时间 (“1970-01-01-00-00-00”), #小时, 8)<br /> 返回 (到整数 (取时间间隔 (取现行时间 (), 初始时间, #秒)))

明天自然醒

afu45 发表于 2022-8-9 15:23
再次精简优化，主帖子不能再编辑了，就发这里吧

[e=0].版本 2

GetTickCount64 是毫秒级的取启动时间吗，如果是的话，那达不到每次开机只允许启动一次的效果，我间隔大于五秒不就可以二次启动了吗。。。

再说了，启动次数和启动时间没有关系吧，要是我恰好每次开机启动时的启动时间恰好相等，那不就误判了吗

jintai11

感谢！！！！！！！！！！感谢

豫源

感谢分享，支持开源

afu45

再次精简优化，主帖子不能再编辑了，就发这里吧
另外 时间_取北京时间戳 (真) 延时较大 换掉了  【狗头】

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
上次时间	长整数型
本次时间	整数型
配置文件	文本型

配置文件 ＝ 取运行目录 () ＋ “\config.ini”
上次时间 ＝ 到整数 (读配置项 (配置文件, “config”, “begintime”, “0”))
本次时间 ＝ 取时间戳 () － GetTickCount64 () ÷ 1000
如果 (时间接近 (上次时间, 本次时间))
信息框 (“玩去”, 0, , )
结束 ()
写配置项 (配置文件, “config”, “begintime”, 到文本 (本次时间))

子程序名	返回值类型	公开	备 注
时间接近	逻辑型
参数名	类 型	参考	可空	数组	备 注
时间戳1	整数型
时间戳2	整数型

' 由于存在误差 所以允许±5秒   不会5秒钟重启1次吧
如果 (取绝对值 (时间戳1 － 时间戳2) ≤ 5)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
取时间戳	长整数型

变量名	类 型	静态	数组	备 注
初始时间	日期时间型
时间戳	长整数型

初始时间 ＝ 增减时间 (到时间 (“1970-01-01-00-00-00”), #小时, 8)
返回 (到整数 (取时间间隔 (取现行时间 (), 初始时间, #秒 )))

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 上次时间, 长整数型<br /> .局部变量 本次时间, 整数型<br /> .局部变量 配置文件, 文本型<br /> <br /> 配置文件 ＝ 取运行目录 () ＋ “\config.ini”<br /> 上次时间 ＝ 到整数 (读配置项 (配置文件, “config”, “begintime”, “0”))<br /> 本次时间 ＝ 取时间戳 () － GetTickCount64 () ÷ 1000<br /> .如果 (时间接近 (上次时间, 本次时间))<br />     信息框 (“玩去”, 0, , )<br />     结束 ()<br /> .否则<br />     写配置项 (配置文件, “config”, “begintime”, 到文本 (本次时间))<br /> .如果结束<br /> <br /> <br /> .子程序 时间接近, 逻辑型<br /> .参数 时间戳1, 整数型<br /> .参数 时间戳2, 整数型<br /> <br /> ' 由于存在误差 所以允许±5秒   不会5秒钟重启1次吧<br /> .如果 (取绝对值 (时间戳1 － 时间戳2) ≤ 5)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 取时间戳, 长整数型<br /> .局部变量 初始时间, 日期时间型<br /> .局部变量 时间戳, 长整数型<br /> <br /> 初始时间 ＝ 增减时间 (到时间 (“1970-01-01-00-00-00”), #小时, 8)<br /> 返回 (到整数 (取时间间隔 (取现行时间 (), 初始时间, #秒)))

每次启动执行1次 优化.e (922.36 KB, 下载次数: 35)

2022-8-9 20:40 上传

点击文件名下载附件

kingtt

出自：https://bbs.125.la/forum.php?mod ... A%E9%87%8D%E5%90%AF  易语言判断计算机重启源码
这是前几天问答区有人问过的吧，这个功能论坛里早就有了，比你这个简单多了，先加个DLL命令

  

DLL命令名	返回值类型	公开	备 注
MoveFileExA
DLL库文件名:
在DLL库中对应命令名:
MoveFileExA
参数名	类 型	传址	数组	备 注
CCAV	文本型
null	整数型
Sky_angel	整数型

.版本 2<br /> <br /> .DLL命令 MoveFileExA, , , "MoveFileExA"<br />     .参数 CCAV, 文本型<br />     .参数 null, 整数型<br />     .参数 Sky_angel, 整数型

然后...

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

如果 (文件是否存在 (取运行目录 () ＋ “\记录.txt”))
MoveFileExA (取运行目录 () ＋ “\记录.txt”, 0, 4)
信息框 (“您没有重新启动计算机，请重新启动计算机后再使用！”, 16, )
结束 ()
写到文件 (取运行目录 () ＋ “\记录.txt”, 到字节集 (“”))

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果 (文件是否存在 (取运行目录 () ＋ “\记录.txt”))<br />     MoveFileExA (取运行目录 () ＋ “\记录.txt”, 0, 4)<br />     信息框 (“您没有重新启动计算机，请重新启动计算机后再使用！”, 16, )<br />     结束 ()<br /> .否则<br />     写到文件 (取运行目录 () ＋ “\记录.txt”, 到字节集 (“”))

kingtt

发了两个

深圳梦

支持开源~！感谢分享