易语言透明遮罩模块源码

系统结构:Ayin_显示遮罩,Ayin_隐藏遮罩,Ayin_刷新遮罩,Ayin_刷新子窗,API_置窗口风格,API_取窗口风格,API_置窗口透明,API_取系统信息,API_信息框,

======启动窗集
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _子窗1_将被销毁
  ======模块集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ Ayin_显示遮罩
           |  |
           |  |------ Ayin_隐藏遮罩
           |  |
           |  |------ Ayin_刷新遮罩
           |  |
           |  |------ Ayin_刷新子窗
           |  |
           |  |
======遮罩窗集
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _遮罩窗_将被销毁
           |  |
           |  |------ _遮罩窗_位置被改变
           |  |
           |  |------ _遮罩窗_尺寸被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_置窗口风格
           |  |
           |  |---[dll]------   API_取窗口风格
           |  |
           |  |---[dll]------   API_置窗口透明
           |  |
           |  |---[dll]------   API_取系统信息
           |  |
           |  |---[dll]------   API_信息框

调用的DLL命令:

.DLL命令 API_置窗口风格, 整数型, "user32.dll", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 API_取窗口风格, 整数型, "user32.dll", "GetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 API_置窗口透明, , "user32.dll", "SetLayeredWindowAttributes"
    .参数 句柄, 整数型, , 窗口句柄
    .参数 透明颜色值, 整数型, , 透明色
    .参数 透明度, 整数型, , 透明度(0-255，0为不透明，255为全透明)
    .参数 透明方式, 整数型, , LWA_COLORKEY(=1)表示使用 透明色; LWA_ALPHA(=2)表示使用 透明度

.DLL命令 API_取系统信息, 整数型, "user32.dll", "GetSystemMetrics"
    .参数 nIndex, 整数型

.DLL命令 API_信息框, 整数型, "user32.dll", "MessageBoxA"
    .参数 hWnd, 整数型
    .参数 lpText, 文本型
    .参数 lpCaption, 文本型
    .参数 wType, 整数型