易语言键盘钩子源码

系统结构:子程序_键盘处理,CallNextHookEx,SetWindowsHookEx,GetModuleHandle,UnhookWindowsHookEx,

======窗口程序集1
           |  |
           |  |------ _按钮_安装钩子_被单击
           |  |
           |  |------ 子程序_键盘处理
           |  |
           |  |------ _按钮_卸载钩子_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   SetWindowsHookEx
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   UnhookWindowsHookEx

调用的DLL命令:

.DLL命令 CallNextHookEx, 整数型, "user32.dll", "CallNextHookEx", 公开, 呼叫下一个钩子
    .参数 hHook, 整数型, , 钩子句柄
    .参数 nCode, 整数型, , 代码值
    .参数 wParam, 整数型, , 附加参数1
    .参数 lParam, 整数型, 传址, 附加参数2

.DLL命令 SetWindowsHookEx, 整数型, "user32.dll", "SetWindowsHookExA", 公开, 安装系统钩子
    .参数 idHook, 整数型, , 钩子类型
    .参数 lpfn, 整数型, , 回调函数地址
    .参数 hmod, 整数型, , 实例句柄
    .参数 dwThreadId, 整数型, , 线程ID

.DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA", 公开, 返回一个应用程序或动态链接库的模块句柄,零表示失败
    .参数 lpModuleName, 整数型

.DLL命令 UnhookWindowsHookEx, 整数型, "user32.dll", "UnhookWindowsHookEx", 公开, 卸载系统钩子
    .参数 hHook, 整数型, , 钩子句柄