易语言锁屏幕源码

系统结构:屏蔽任务管理器,屏蔽任务管理器9X,钩子函数,恢复任务管理器,恢复任务管理器9X,设置组件位置,GetModuleHandleA,卸载钩子,下一个钩子,安装钩子,CopyMemory,限制移动,取窗口大小,限制键盘,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 屏蔽任务管理器
           |  |
           |  |------ 屏蔽任务管理器9X
           |  |
           |  |------ 钩子函数
           |  |
           |  |------ 恢复任务管理器
           |  |
           |  |------ 恢复任务管理器9X
           |  |
           |  |------ _锁机按钮_被单击
           |  |
           |  |------ 设置组件位置
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   卸载钩子
           |  |
           |  |---[dll]------   下一个钩子
           |  |
           |  |---[dll]------   安装钩子
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   限制移动
           |  |
           |  |---[dll]------   取窗口大小
           |  |
           |  |---[dll]------   限制键盘

调用的DLL命令:

.DLL命令 GetModuleHandleA, 整数型, , "GetModuleHandleA"
    .参数 lpModuleName, 整数型

.DLL命令 卸载钩子, 整数型, , "UnhookWindowsHookEx"
    .参数 hHook, 整数型

.DLL命令 下一个钩子, 整数型, , "CallNextHookEx"
    .参数 hHook, 整数型
    .参数 icode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 安装钩子, 整数型, , "SetWindowsHookExA"
    .参数 ihook, 整数型
    .参数 lpfunc, 子程序指针
    .参数 hin, 整数型
    .参数 threadid, 整数型

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 Destination, 按键信息
    .参数 Source, 整数型
    .参数 cbCopy, 整数型

.DLL命令 限制移动, 整数型, "user32", "ClipCursor", , 11
    .参数 lpRect, rect

.DLL命令 取窗口大小, , , "GetWindowRect", , 11
    .参数 hwnd, 整数型
    .参数 lpRect, rect

.DLL命令 限制键盘, , , "keybd_event", , 11
    .参数 AAAAAA
    .参数 VVVVV
    .参数 BBBBB
    .参数 CCCCCC