易语言超文本浏览框处理键盘消息源码

系统结构:web_按键消息处理,web_按键消息处理_回调,web_按键消息取消,COM_call,pt_对象接口,pt_取地址,SendMessage_ints,SendMessage,SetWindowsHookEx,GetModuleHandleA,CallNextHookEx,UnhookWindowsHookEx,GetCurrentThreadId,GetClassName,RtlMoveMemory,RegisterWindowMessage,ObjectFromLresult,CLSIDFromString,拷贝_指针到整数组,指针_字节集,指针_对象,指针_整数组,CallWindowProcA2,

======窗口程序集_启动窗口
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _form1_创建完毕
           |  |
           |  |------ web_按键消息处理
           |  |
           |  |------ web_按键消息处理_回调
           |  |
           |  |------ web_按键消息取消
           |  |
           |  |------ COM_call
           |  |
           |  |------ pt_对象接口
           |  |
           |  |------ pt_取地址
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessage_ints
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SetWindowsHookEx
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   RegisterWindowMessage
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   拷贝_指针到整数组
           |  |
           |  |---[dll]------   指针_字节集
           |  |
           |  |---[dll]------   指针_对象
           |  |
           |  |---[dll]------   指针_整数组
           |  |
           |  |---[dll]------   CallWindowProcA2

调用的DLL命令:

.DLL命令 SendMessage_ints, 整数型, "user32.dll", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, 数组

.DLL命令 SendMessage, 整数型, "user32.dll", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowsHookEx, 整数型, "user32", "SetWindowsHookExA"
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 hmod, 整数型
    .参数 dwThreadId, 整数型

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

.DLL命令 CallNextHookEx, 整数型, "user32", "CallNextHookEx"
    .参数 hhk, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 UnhookWindowsHookEx, 逻辑型, "user32", "UnhookWindowsHookEx"
    .参数 hhk, 整数型

.DLL命令 GetCurrentThreadId, 整数型, "kernel32", "GetCurrentThreadId"

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA", , 为指定的窗口取得类名  以字节数表示的类名长度；排除最后的空中止字符。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 欲获得类名的那个窗口的句柄
    .参数 lpClassName, 文本型, , 随同类名载入的缓冲区。预先至少必须分配nMaxCount+1个字符
    .参数 nMaxCount, 整数型, , 由lpClassName提供的缓冲区长度;

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, MSG
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 RegisterWindowMessage, 整数型, "user32.dll", "RegisterWindowMessageA", 公开, 注册消息
    .参数 消息名称, 文本型, , lpString，注册消息的名字。

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", "ObjectFromLresult", 公开, 　
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象, 传址

.DLL命令 CLSIDFromString, 整数型, "ole32.dll", "CLSIDFromString", 公开
    .参数 lpsz, 字节集, , unicodeclsid文本
    .参数 clsid, 字节集, , clsid缓冲区

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

.DLL命令 指针_字节集, 整数型, "kernel32.dll", "SetHandleCount", 公开
    .参数 变量, 字节集

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

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

.DLL命令 CallWindowProcA2, 整数型, , "CallWindowProcA", 公开
    .参数 动态调用代码, 字节集, , {85,139,236,86,139,117,16,141,78,255,133,201,124,21,139,69,12,141,4,136,65,139,16,137,85,16,255,117,16,131,232,4,73,117,242,255,85,8,137,69,12,139,69,20,133,192,116,13,141,4,181,0,0,0,0,137,69,16,3,101,16,139,69,12,94,93,194,16,0}
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）