为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 易语言相关 > 易语言例程 正文

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

三叶资源网 2020-05-24 11:03:29 易语言例程 2380 ℃ 0 评论

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

   易语言防止程序运行时 系统自动关闭显示器.png

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

易语言防止程序运行时 系统自动关闭显示器.png

部分代码:

.版本 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

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
软件开发项目管理器色彩识别加密壳热文采集钓鱼明朝时代页游脱机易语言做网站按键精灵多文件更新酷狗繁星PC协议取启动时间淘宝宝贝列表分页源码易语言支持库windows 98风格网易云音乐播放器易语言源码网自媒体监听wifi信号强度RC4算法同步应用数独算法
最新评论