屏蔽任意键的模块

系统结构:屏蔽按键,低级键盘钩子,解除按键屏蔽,DeleteMenu,GetMenuItemCount,GetSystemMenu,CallWindowProcA,SetWindowLongA,安装钩子,GetModuleHandleA,卸载钩子,下一个钩子,CopyMemory,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _编辑框1_按下某键
  ======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 屏蔽按键
           |  |
           |  |------ 低级键盘钩子
           |  |
           |  |------ 解除按键屏蔽
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DeleteMenu
           |  |
           |  |---[dll]------   GetMenuItemCount
           |  |
           |  |---[dll]------   GetSystemMenu
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   安装钩子
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   卸载钩子
           |  |
           |  |---[dll]------   下一个钩子
           |  |
           |  |---[dll]------   CopyMemory

调用的DLL命令:

.DLL命令 DeleteMenu, 整数型, "user32", "DeleteMenu"
    .参数 hMenu, 整数型
    .参数 nPosition, 整数型
    .参数 wFlags, 整数型

.DLL命令 GetMenuItemCount, 整数型, "user32", "GetMenuItemCount"
    .参数 hMenu, 整数型

.DLL命令 GetSystemMenu, 整数型, "user32", "GetSystemMenu"
    .参数 hwnd, 整数型
    .参数 bRevert, 整数型

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

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

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

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

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

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

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