易语言服务器停止运行程序,易语言防止程序运行时 系统自动关闭显示器

如：电脑设置了空闭一分钟后，显示器自动关闭。

本例程，可以设置运行自己的程序时，禁止系统：自动关闭显示器，与恢复自动关闭显示功能。

部分代码：.版本 2

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

.程序集变量 aa, 整数型

.程序集变量 鼠标空闲时间, 整数型

.子程序 阻止睡眠休眠

SetThreadExecutionState (位或 (#ES_CONTINUOUS, #ES_DISPLAY_REQUIRED, #ES_SYSTEM_REQUIRED))

.子程序 恢复睡眠休眠

SetThreadExecutionState (#ES_CONTINUOUS)

.子程序 _按钮_阻止睡眠休眠_被单击

阻止睡眠休眠 ()

标签2.标题 ＝ “已禁止：”

aa ＝ 0

.子程序 _按钮_恢复睡眠休眠_被单击

恢复睡眠休眠 ()

标签2.标题 ＝ “已恢复：”

aa ＝ 0

.子程序 _时钟1_周期事件, , , 测试用时钟

.局部变量 dwTime, PLASTINPUTINFO

dwTime.cbSize ＝ 8

取离上次输入操作过去时间 (dwTime)

鼠标空闲时间 ＝ 取整 ((取运行时间_ () － dwTime.dwTime) ÷ 1000)

.如果 (鼠标空闲时间 ≥ 1)  ' 空闲时间大于1

aa ＝ aa ＋ 1

.否则

aa ＝ 1

.如果结束

标签1.标题 ＝ 到文本 (aa) ＋ “ 秒”

@ak360

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)