易语言web按键消息处理源码

系统结构:web_按键消息处理,web_按键消息取消,web_处理按键消息_回调,Call_com,CallWindowProcA2,指针_整数组,GetClassNameA,SendMessage_Msg,CallNextHookEx,SetWindowsHookExA,GetModuleHandleA,UnhookWindowsHookEx,GetCurrentThreadId,拷贝_指针到整数组,指针_对象,GetParent,

======窗口程序集_窗口1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ web_按键消息处理
           |  |
           |  |------ web_按键消息取消
           |  |
           |  |------ web_处理按键消息_回调
           |  |
           |  |------ Call_com
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CallWindowProcA2
           |  |
           |  |---[dll]------   指针_整数组
           |  |
           |  |---[dll]------   GetClassNameA
           |  |
           |  |---[dll]------   SendMessage_Msg
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   SetWindowsHookExA
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   拷贝_指针到整数组
           |  |
           |  |---[dll]------   指针_对象
           |  |
           |  |---[dll]------   GetParent

调用的DLL命令:

.DLL命令 CallWindowProcA2, 整数型, , "CallWindowProcA", 公开
    .参数 动态调用代码, 字节集
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 指针_整数组, 整数型, "kernel32.dll", "SetHandleCount", 公开, 参数必须为指针变量
    .参数 变量, 整数型, 传址 数组

.DLL命令 GetClassNameA, 整数型, "user32.dll", "GetClassNameA", 公开, 取窗口类名
    .参数 窗口句柄, 整数型
    .参数 缓冲区, 文本型, 传址
    .参数 缓冲区长度, 整数型

.DLL命令 SendMessage_Msg, 整数型, "user32", "SendMessageA", 公开
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, 数组

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

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

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

.DLL命令 UnhookWindowsHookEx, 逻辑型, "user32", "UnhookWindowsHookEx", 公开, 卸载系统钩子
    .参数 hhk, 整数型

.DLL命令 GetCurrentThreadId, 整数型, "kernel32", "GetCurrentThreadId", 公开, 取当前线程ID

.DLL命令 拷贝_指针到整数组, , "kernel32.dll", "RtlMoveMemory", 公开
    .参数 目的变量, 整数型, 数组, pTo
    .参数 源变量, 整数型, , uFrom
    .参数 尺寸, 整数型, , lSize

.DLL命令 指针_对象, 整数型, "kernel32.dll", "SetHandleCount", 公开, 参数必须为指针变量
    .参数 变量, 对象

.DLL命令 GetParent, 整数型, "user32", "GetParent", 公开, 取父窗口
    .参数 hWnd, 整数型