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

afu45

每次启动执行1次.e (926.95 KB, 下载次数: 11)

2022-8-8 10:08 上传

点击文件名下载附件
优化后的
下载积分: 精币 -2 枚

主要是根据GetTickCount 来获取系统启动时间(毫秒级) 来判断
配置文件放在运行目录只是为了方便查看，这里仅提供一个方法，你把数据保存zc表也可以，不要再出现说删配置文件的老六了

  

.版本 2.支持库 spec

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

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

系统启动时间 ＝ GetTickCount64 () ÷ 1000
系统启动时间戳 ＝ 到整数 (时间_取北京时间戳 (真)) － 系统启动时间
配置文件 ＝ 取运行目录 () ＋ “\config.ini”
调试输出 (系统启动时间)
上次时间 ＝ 到整数 (读配置项 (配置文件, “config”, “time”, “0”))
如果 (上次时间 ＝ 0)
写配置项 (配置文件, “config”, “time”, 到文本 (系统启动时间))
写配置项 (配置文件, “config”, “begintime”, 到文本 (系统启动时间戳))


如果 (GetTickCount64 () ＞ 上次时间)
写配置项 (配置文件, “config”, “begintime”, 到文本 (系统启动时间戳))
信息框 (“玩去”, 0, , )
结束 ()


配置时间戳 ＝ 到整数 (读配置项 (配置文件, “config”, “begintime”, “0”))
如果 (时间接近 (配置时间戳, 系统启动时间戳))
信息框 (“玩去”, 0, , )
结束 ()


写配置项 (配置文件, “config”, “time”, 到文本 (系统启动时间))
写配置项 (配置文件, “config”, “begintime”, 到文本 (系统启动时间戳))

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

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

.版本 2.支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 上次时间, 长整数型<br /> .局部变量 系统启动时间, 整数型<br /> .局部变量 系统启动时间戳, 整数型<br /> .局部变量 配置时间戳, 整数型<br /> .局部变量 配置文件, 文本型<br /> <br /> 系统启动时间 ＝ GetTickCount64 () ÷ 1000<br /> 系统启动时间戳 ＝ 到整数 (时间_取北京时间戳 (真)) － 系统启动时间<br /> 配置文件 ＝ 取运行目录 () ＋ “\config.ini”<br /> 调试输出 (系统启动时间)<br /> 上次时间 ＝ 到整数 (读配置项 (配置文件, “config”, “time”, “0”))<br /> .如果 (上次时间 ＝ 0)<br />     写配置项 (配置文件, “config”, “time”, 到文本 (系统启动时间))<br />     写配置项 (配置文件, “config”, “begintime”, 到文本 (系统启动时间戳))<br /> .否则<br /> <br />     .如果 (GetTickCount64 () ＞ 上次时间)<br />         写配置项 (配置文件, “config”, “begintime”, 到文本 (系统启动时间戳))<br />         信息框 (“玩去”, 0, , )<br />         结束 ()<br />     .否则<br /> <br />         配置时间戳 ＝ 到整数 (读配置项 (配置文件, “config”, “begintime”, “0”))<br />         .如果 (时间接近 (配置时间戳, 系统启动时间戳))<br />             信息框 (“玩去”, 0, , )<br />             结束 ()<br />         .否则<br /> <br />             写配置项 (配置文件, “config”, “time”, 到文本 (系统启动时间))<br />             写配置项 (配置文件, “config”, “begintime”, 到文本 (系统启动时间戳))<br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 时间接近, 逻辑型<br /> .参数 时间戳1, 整数型<br /> .参数 时间戳2, 整数型<br /> <br /> ' 由于存在误差 所以允许±5秒   不会5秒钟重启1次吧<br /> .如果 (取绝对值 (时间戳2 － 时间戳2) ≤ 5)<br />     返回 (真)<br /> .否则<br />     返回 (假)

补充内容 (2022-8-9 08:17):
如果 (取绝对值 (时间戳2 － 时间戳2) ≤ 5)
改为
如果 (取绝对值 (时间戳2 － 时间戳1) ≤ 5)

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, 下载次数: 43)

2022-8-9 20:40 上传

点击文件名下载附件
下载积分: 精币 -2 枚

junhai

谢谢！！！！！！！！！！

清风徐来2

感谢分享

nbhh66

5124123r4432222222

空竹

配置文件名

我用的 硬盘序列号 再加密

这样一机一个文件名  

要破J的也得 破我的 加密,,

ttggnn

感谢分享

敬你

开源精神必须支持~

ttggnn

支持一下

panda92

下载看看

小李吃不饱

下载看看