易语言简单实现屏幕锁定源码

系统结构:限制,屏蔽任务拦,解除限制,查找窗口,投递消息,SetWindowPos,FindWindow,限制鼠标,是否锁住功能键,取消限制,

======窗口程序集1
           |  |
           |  |------ 限制
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 屏蔽任务拦
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 解除限制
           |  |
           |  |------ __启动窗口_按下某键
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   查找窗口
           |  |
           |  |---[dll]------   投递消息
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   限制鼠标
           |  |
           |  |---[dll]------   是否锁住功能键
           |  |
           |  |---[dll]------   取消限制

调用的DLL命令:

.DLL命令 查找窗口, 整数型, , "FindWindowA"
    .参数 lpClassName, , , 设为0
    .参数 lpWindowName, 文本型, , 设为窗口标题

.DLL命令 投递消息, 整数型, , "PostMessageA"
    .参数 Hwnd, 整数型, , 查找窗口返回的值
    .参数 wMsg, 整数型, , 关闭消息号为16
    .参数 wParam, 整数型, , 设为0
    .参数 lParam, 整数型, , 设为0

.DLL命令 SetWindowPos, 整数型, "user32.dll", "SetWindowPos", , 

    .参数 hwnd, 整数型
    .参数 hwndInsertAfter, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 wFlags, 整数型

.DLL命令 FindWindow, 整数型, "user32.dll", "FindWindowA"
    .参数 lpClass, 文本型
    .参数 lpWindowName, 文本型

.DLL命令 限制鼠标, 整数型, , "ClipCursor"
    .参数 区域, 区域大小

.DLL命令 是否锁住功能键, 整数型, , "SystemParametersInfoA"
    .参数 参数, 整数型, , 锁功能键的常数为97
    .参数 参数, 逻辑型, , 是否锁住功能键
    .参数 参数, 整数型, , 设为0
    .参数 参数, 整数型, , 设为0

.DLL命令 取消限制, , , "ClipCursor"
    .参数 取值, 整数型