易语言超文本浏览框支持快捷键源码

系统结构:HookProc,IOleInPlaceActiveObject_TranslateAccelerator,CLSIDFromString,SetWindowsHookEx,CopyMemory_字节集,CallNextHookEx,UnhookWindowsHookEx,GetParent,GetCurrentThreadId,CreateWindowExA,AtlAxWinInit,AtlAxGetControl,FindWindowEx,GetClassName,AtlAxAttachControl,GetAsyncKeyState,RtlMoveMemory,SendMessageMsg,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口_主窗口_创建完毕
           |  |
           |  |------ HookProc
           |  |
           |  |------ IOleInPlaceActiveObject_TranslateAccelerator
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _窗口_主窗口_尺寸被改变
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   SetWindowsHookEx
           |  |
           |  |---[dll]------   CopyMemory_字节集
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   CreateWindowExA
           |  |
           |  |---[dll]------   AtlAxWinInit
           |  |
           |  |---[dll]------   AtlAxGetControl
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   AtlAxAttachControl
           |  |
           |  |---[dll]------   GetAsyncKeyState
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   SendMessageMsg

调用的DLL命令:

.DLL命令 CLSIDFromString, 整数型, "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

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

.DLL命令 CopyMemory_字节集, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 pDest, 字节集, 传址
    .参数 pSrc, 整数型
    .参数 nLen, 整数型

.DLL命令 CallNextHookEx, 整数型, "user32.dll", "CallNextHookEx"
    .参数 hhook, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, 传址

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

.DLL命令 GetParent, 整数型, "user32.dll", "GetParent", , 取父窗口
    .参数 窗口句柄, 整数型

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

.DLL命令 CreateWindowExA, 整数型, "user32.dll", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 AtlAxWinInit, 整数型, "atl.dll", "AtlAxWinInit"

.DLL命令 AtlAxGetControl, 整数型, "atl.dll", "AtlAxGetControl"
    .参数 hWnd, 整数型
    .参数 ppUnkContainer, 对象

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 整数型
    .参数 lpsz2, 整数型

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA"
    .参数 hwnd, 整数型
    .参数 lpClassName, 文本型
    .参数 nMaxCount, 整数型

.DLL命令 AtlAxAttachControl, 整数型, "atl.dll", "AtlAxAttachControl"
    .参数 Clsid, 字节集
    .参数 hWnd, 整数型
    .参数 obj, 整数型, 传址

.DLL命令 GetAsyncKeyState, 整数型, , "GetAsyncKeyState"
    .参数 键值, 整数型

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

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