|

15精币
我弄了个自动锁屏的程序,总是长时间运行会终止(不知道什么时候,什么原因),就是可能一天或者两天,发现不自动锁屏了,代码也很简单,就是不知道为什么,我调试运行,整整4天没事,编译后运行,时间长出问题了,
有没有办法解决这个问题,或者找到导致终止的原因???
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集1 | | | | 变量名 | 类 型 | 数组 | 备 注 | 时1 | 整数型 | | 分1 | 整数型 | | 秒1 | 整数型 | | 暂停时间 | 日期时间型 | | 监测时间戳 | 日期时间型 | | 暂停30 | 逻辑型 | | 暂停120 | 逻辑型 | | 监测鼠标坐标 | 精易_坐标 | | 空闲计数 | 整数型 | | 键盘钩子 | 类_钩子 | | 临界许可 | 类_临界许可 | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 时间阈值 | 整数型 | | | inttime | 整数型 | | | 上次锁定时间 | 日期时间型 | | | 间隔时间 | 双精度小数型 | | | 空闲时间 | 整数型 | | | 鼠标坐标 | 精易_坐标 | | |
判断 (暂停120 = 真) 暂停半小时.标题 = “暂停半小时” inttime = 120 - 取时间间隔 (取现行时间 (), 暂停时间, #分钟 ) 如果 (inttime > 0 )  暂停2小时.标题 = 取文本 (“暂停2小时(-%s)”, 时间_秒到时分秒格式 (inttime × 60, “h:m”, 真))  返回 ()  暂停120 = 假   暂停2小时.标题 = “暂停2小时”  暂停半小时.标题 = “暂停半小时”  判断 (暂停30 = 真) 暂停2小时.标题 = “暂停2小时” inttime = 30 - 取时间间隔 (取现行时间 (), 暂停时间, #分钟 ) 如果 (inttime > 0 )  暂停半小时.标题 = 取文本 (“暂停半小时(-%s)”, 时间_秒到时分秒格式 (inttime × 60, “h:m”, 真))  返回 ()  暂停30 = 假   暂停2小时.标题 = “暂停2小时”  暂停半小时.标题 = “暂停半小时”   暂停2小时.标题 = “暂停2小时” 暂停半小时.标题 = “暂停半小时” 空闲计数 = 空闲计数 + 时钟.时钟周期 ÷ 1000 时间阈值 = 时1 × 60 × 60 + 分1 × 60 + 秒1 如果真 (监测时间戳 = [2024年11月1日1时1分1秒 ]) 监测鼠标坐标 = 鼠标_取位置 () 监测时间戳 = 取现行时间 () 鼠标坐标 = 鼠标_取位置 () 如果 (鼠标坐标.横 ≠ 监测鼠标坐标.横 且 鼠标坐标.纵 ≠ 监测鼠标坐标.纵 ) 临界许可. 进入 () 监测鼠标坐标 = 鼠标_取位置 () 监测时间戳 = 取现行时间 () 空闲计数 = 0  临界许可. 退出 ()  空闲时间 = 取时间间隔 (取现行时间 (), 监测时间戳, #秒 ) 标签5.标题 = 到文本 (空闲时间 ) + “-” + 到文本 (空闲计数 ) + “/” + 到文本 (时间阈值 ) 如果真 (空闲时间 > 时间阈值 且 空闲计数 > 时间阈值 )  如果真 (选择框VX.选中 )    锁定VX () LockWorkStation ()  空闲计数 = 0   标签时间.标题 = 到文本 (取现行时间 ())  调试输出 (“锁定”, 取现行时间 ())   置时间 ()注册表_简单写 (“自动息屏时”, 时.内容 )注册表_简单写 (“自动息屏分”, 分.内容 )注册表_简单写 (“自动息屏秒”, 秒.内容 )注册表_简单写 (“是否锁定VX”, 选择 (选择框VX.选中, “1”, “0”)) 信息框 (“保存成功!”, 0, , )__启动窗口_可否被关闭 ()程序_禁止重复运行 (“自动息屏”, 假, , , 真)置托盘图标 ( #托盘图标, )时.内容 = 选择 (注册表_简单读 (“自动息屏时”) = “”, “00”, 注册表_简单读 (“自动息屏时”)) 分.内容 = 选择 (注册表_简单读 (“自动息屏分”) = “”, “05”, 注册表_简单读 (“自动息屏分”)) 秒.内容 = 选择 (注册表_简单读 (“自动息屏秒”) = “”, “00”, 注册表_简单读 (“自动息屏秒”)) 选择框VX.选中 = 选择 (注册表_简单读 (“是否锁定VX”) = “1”, 真, 假)置时间 () 判断 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” + 取执行文件名 ()) = 真) 开机自启.选中 = 真  开机自启.选中 = 假 热键_注册全局热键 (取窗口句柄 (), #Pause键, , &热键事件子程序 )监测时间戳 = [2024年11月1日1时1分1秒 ]键盘钩子. 安装钩子_键盘 (取窗口句柄 (), &键盘钩子事件, 真)临界许可. 进入 ()监测时间戳 = 取现行时间 ()空闲计数 = 0 临界许可. 退出 () 如果真 (选择框VX.选中 ) 锁定VX ()程序_延时 (300, )LockWorkStation ()时1 = 到整数 (时.内容 )分1 = 到整数 (分.内容 )秒1 = 到整数 (秒.内容 )可视 = 假 返回 (假)弹出托盘菜单 (托盘菜单 )可视 = 真 开机自启.选中 = 取反 (开机自启.选中 ) 判断 (开机自启.选中 = 真) 写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” + 取执行文件名 (), 取运行目录 () + “\” + 取执行文件名 ()) 删除注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” + 取执行文件名 ())  判断 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Run\” + 取执行文件名 ()) = 真) 开机自启.选中 = 真  开机自启.选中 = 假 热键_撤销所有全局注册热键 ()销毁 ()结束 ()暂停120 = 假 如果 (暂停30 = 假) 暂停30 = 真  暂停时间 = 取现行时间 () 暂停30 = 假  暂停30 = 假 如果 (暂停120 = 假) 暂停120 = 真  暂停时间 = 取现行时间 () 暂停120 = 假 
|
|