易语言时钟锁屏源码

系统结构:屏蔽注销,开始锁定,关闭锁定,锁鼠标键盘,SetWindowLongA,CallWindowProcA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _间隔_周期事件
           |  |
           |  |------ _保存_被单击
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 屏蔽注销
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口锁_创建完毕
           |  |
           |  |------ 开始锁定
           |  |
           |  |------ 关闭锁定
           |  |
           |  |------ _锁屏时钟_周期事件
           |  |
           |  |------ _防御时钟_周期事件
           |  |
           |  |------ _窗口锁_可否被关闭
           |  |
           |  |------ _窗口锁_将被销毁
           |  |
           |  |------ _窗口锁_尺寸被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   锁鼠标键盘
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   _设置窗口透明度
           |  |
           |  |---[dll]------   CallWindowProcA

调用的DLL命令:

.DLL命令 锁鼠标键盘, 整数型, , "BlockInput"
    .参数 fBlock, , , 1.锁定，0.解除

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 要置的特征, 整数型
    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 _设置窗口透明度, 整数型, , "SetLayeredWindowAttributes"
    .参数 窗口句柄, 整数型
    .参数 颜色值, 整数型
    .参数 透明度, 整数型, , 0-255,数字越大越不透明
    .参数 dwFlags, 整数型

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
    .参数 程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型