易语言GDI调节屏幕亮度源码

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

_启动窗口.置托盘图标 (#叹号图标, )
API_置窗口位置 (取窗口句柄 (), #HWND_TOP, 0, 0, 0, 0, #SWP_NOMOVE ＋ #SWP_NOSIZE)
载入 (窗口1, _启动窗口, 假)
启动窗口 ＝ SetWindowLongA (窗口1.取窗口句柄 (), -4, &窗口不可关闭)
_启动窗口.宽度 ＝ 取屏幕宽度 ()
_启动窗口.高度 ＝ 取屏幕高度 ()
延迟 (100)
Gdiplus初始化 ()
句柄 ＝ _启动窗口.取窗口句柄 ()
PNG.置PNG外形 (句柄, #窗口, 100)
PNG.置鼠标穿透 (句柄, 真)

.子程序 __启动窗口_将被销毁

Gdiplus销毁 ()
UnRegHotKey (热键ID)

.子程序 窗口不可关闭, 整数型
.参数 句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型
.局部变量 逻辑值1, 逻辑型
.局部变量 逻辑值2, 逻辑型
.局部变量 逻辑值3, 逻辑型
.局部变量 逻辑值4, 逻辑型
.局部变量 逻辑值5, 逻辑型
.局部变量 鼠标x, 整数型
.局部变量 鼠标y, 整数型

.判断开始 (消息 ＝ 161 且 参数1 ＝ 20)
    消息 ＝ 24
    参数1 ＝ 0
    窗口1.可视 ＝ 假
.判断 (参数1 ＝ 61488 且 消息 ＝ 274)
    参数1 ＝ 61728
    调试输出 (“消息截获2”)
.默认

.判断结束

返回 (CallWindowProcA (启动窗口, 句柄, 消息, 参数1, 参数2))

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.如果真 (操作类型 ＝ 1)
    _启动窗口.弹出托盘菜单 (_启动窗口.托盘菜单)
.如果真结束


.子程序 _控制器_被选择

API_隐藏窗口 (窗口1.取窗口句柄 (), 1)

.子程序 _退出_被选择

Gdiplus销毁 ()
UnRegHotKey (热键ID)
销毁 ()

.子程序 _时钟1_周期事件

API_置窗口位置 (_启动窗口.取窗口句柄 (), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOSIZE ＋ #SWP_NOMOVE)
API_置窗口位置 (窗口1.取窗口句柄 (), #HWND_TOPMOST, 0, 0, 0, 0, #SWP_NOSIZE ＋ #SWP_NOMOVE)

@易语言入门教程