易语言屏蔽按键源码

系统结构:创建组件,拦截处理,取焦点句柄,取模块句柄,执行下个钩子,创建钩子,卸载钩子,写内存字节集,读内存字节集,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 创建组件
           |  |
           |  |------ _倒霉的孩子_被单击
           |  |
           |  |------ 拦截处理
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取焦点句柄
           |  |
           |  |---[dll]------   取模块句柄
           |  |
           |  |---[dll]------   执行下个钩子
           |  |
           |  |---[dll]------   创建钩子
           |  |
           |  |---[dll]------   卸载钩子
           |  |
           |  |---[dll]------   写内存字节集
           |  |
           |  |---[dll]------   读内存字节集

调用的DLL命令:

.DLL命令 取焦点句柄, 整数型, , "GetFocus", , 获得拥有输入焦点的窗口的句柄(输入框句柄)。如没有窗口拥有输入焦点，则返回零

.DLL命令 取模块句柄, 整数型, , "GetModuleHandleA"
    .参数 lpModuleName, 整数型

.DLL命令 执行下个钩子, 整数型, , "CallNextHookEx"
    .参数 hhk, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 创建钩子, 整数型, , "SetWindowsHookExA"
    .参数 钩子类型, 整数型
    .参数 子程序, 子程序指针
    .参数 句柄, 整数型
    .参数 线程句柄, 整数型

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

.DLL命令 写内存字节集, , , "RtlMoveMemory"
    .参数 地址, 整数型
    .参数 数据, 字节集
    .参数 长度, 整数型

.DLL命令 读内存字节集, , , "RtlMoveMemory"
    .参数 字节集, 字节集
    .参数 地址, 整数型
    .参数 长度, 整数型