易语言局部热键源码

系统结构:子程序1,子程序22,撤销,安装,添加热键,删除热键,钩子回调函数,SetWindowsHookExA_,GetWindowThreadProcessId_,CallNextHookEx_,RtlMoveMemory_,UnhookWindowsHookEx_,GetAsyncKeyState_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 子程序22
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |
======局部热键类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 撤销
           |  |
           |  |------ 安装
           |  |
           |  |------ 添加热键
           |  |
           |  |------ 删除热键
           |  |
           |  |
======程序集2
           |  |
           |  |------ 钩子回调函数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowsHookExA_
           |  |
           |  |---[dll]------   GetWindowThreadProcessId_
           |  |
           |  |---[dll]------   CallNextHookEx_
           |  |
           |  |---[dll]------   RtlMoveMemory_
           |  |
           |  |---[dll]------   UnhookWindowsHookEx_
           |  |
           |  |---[dll]------   GetAsyncKeyState_

调用的DLL命令:

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

.DLL命令 GetWindowThreadProcessId_, 整数型, "user32.dll", "GetWindowThreadProcessId", , GetWindowThreadProcessId，获取与指定窗口关联在一起的一个线程和进程标识符
    .参数 窗口句柄, 整数型, , hwnd，指定窗口句柄
    .参数 进程标识符, 整数型, , lpdwProcessId，指定一个变量，用于装载拥有那个窗口的一个进程的标识符

.DLL命令 CallNextHookEx_, 整数型, "user32.dll", "CallNextHookEx", ,  CallNextHookEx
    .参数 钩子句柄, 整数型, , hHook
    .参数 代码值, 整数型, , ncode
    .参数 附加参数1, 整数型, , wParam
    .参数 附加参数2, 整数型, 传址, lParam

.DLL命令 RtlMoveMemory_, , "kernel32", "RtlMoveMemory"
    .参数 接收变量, MSG
    .参数 数据指针, 整数型
    .参数 数值长度, 整数型

.DLL命令 UnhookWindowsHookEx_, 整数型, "user32.dll", "UnhookWindowsHookEx", , UnhookWindowsHookEx
    .参数 钩子句柄, 整数型, , hHook

.DLL命令 GetAsyncKeyState_, 整数型, "user32", "GetAsyncKeyState"
    .参数 键代码, 整数型, , vKey Long，欲测试的虚拟键的键码