易语言无窗口键盘钩子源码

系统结构:全局钩子函数,将消息传递子程序,钩子安装,传递消息,钩子卸载,取模块句柄,模拟按键,GetMessage,TranslateMessage,DispatchMessage,PeekMessage,CopyMemory,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 全局钩子函数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   将消息传递子程序
           |  |
           |  |---[dll]------   钩子安装
           |  |
           |  |---[dll]------   传递消息
           |  |
           |  |---[dll]------   钩子卸载
           |  |
           |  |---[dll]------   取模块句柄
           |  |
           |  |---[dll]------   模拟按键
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   PeekMessage
           |  |
           |  |---[dll]------   CopyMemory

调用的DLL命令:

.DLL命令 将消息传递子程序, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
    .参数 子程序指针, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型
    .参数 参数三, 整数型
    .参数 保留, 整数型

.DLL命令 钩子安装, 整数型, , "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 HOOKPROC, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 传递消息, 整数型, , "CallNextHookEx"
    .参数 HHOOK, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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

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

.DLL命令 模拟按键, 整数型, , "keybd_event"
    .参数 虚拟键代码, 整数型
    .参数 扫描码, 整数型
    .参数 设置标识, 整数型
    .参数 扩展信息, 整数型

.DLL命令 GetMessage, 整数型, , "GetMessageA"
    .参数 msg, MSG
    .参数 hwnd, 整数型
    .参数 w, 整数型
    .参数 l, 整数型

.DLL命令 TranslateMessage, 整数型, , "TranslateMessage"
    .参数 msg, MSG

.DLL命令 DispatchMessage, 整数型, , "DispatchMessageA"
    .参数 msg, MSG, 传址

.DLL命令 PeekMessage, 整数型, , "PeekMessageA"
    .参数 msg, MSG
    .参数 hwnd, 整数型
    .参数 min, 整数型
    .参数 max, 整数型
    .参数 rmov, 整数型

.DLL命令 CopyMemory, , , "RtlMoveMemory"
    .参数 Destination, MSG1, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型