易语言HookDLL源码 [db:版本]

HookDLL

系统结构:GetMsgProc,NewWndProc,安装钩子过程,调中链中的下一个挂钩过程,从钩子链中删除函数,增加或修改属性列项,删除属性列入口,从窗口属性表列中返回数据句柄,拷贝内存,在窗口结构中为指定的窗口设置信息,从指定窗口的结构中取得信息,将消息传答窗口函数,发送消息,

======DLL程序集
| |
| |------ _启动子程序
| |
| |------ _临时子程序
| |
| |
======HOOK程序集
| |
| |------ GetMsgProc
| |
| |------ NewWndProc
| |
| |
======调用的Dll
| |
| |---[dll]------ 安装钩子过程
| |
| |---[dll]------ 调中链中的下一个挂钩过程
| |
| |---[dll]------ 从钩子链中删除函数
| |
| |---[dll]------ 增加或修改属性列项
| |
| |---[dll]------ 删除属性列入口
| |
| |---[dll]------ 从窗口属性表列中返回数据句柄
| |
| |---[dll]------ 拷贝内存
| |
| |---[dll]------ 在窗口结构中为指定的窗口设置信息
| |
| |---[dll]------ 从指定窗口的结构中取得信息
| |
| |---[dll]------ 将消息传答窗口函数
| |
| |---[dll]------ 发送消息

调用的DLL命令:

.DLL命令 安装钩子过程, 整数型, , "SetWindowsHookEx", , 安装钩子过程
.参数 idHook, 整数型
.参数 lpfn, 子程序指针
.参数 nMod, 整数型
.参数 dwThreadID, 整数型

.DLL命令 调中链中的下一个挂钩过程, 整数型, , "CallNextHookEx", , 调中链中的下一个挂钩过程
.参数 hhook, 整数型
.参数 nCode, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 从钩子链中删除函数, 逻辑型, , "UnhookWindowsHookEx", , 从钩子链中删除函数
.参数 hhook, 整数型

.DLL命令 增加或修改属性列项, 逻辑型, , "SetPropA", , 增加或修改属性列项
.参数 hWnd, 整数型
.参数 lpString, 文本型
.参数 hData, 整数型

.DLL命令 删除属性列入口, 整数型, , "RemovePropA", , 删除属性列入口
.参数 hWnd, 整数型
.参数 lpString, 文本型

.DLL命令 从窗口属性表列中返回数据句柄, 整数型, , "GetPropA", , 从窗口属性表列中返回数据句柄
.参数 hWnd, 整数型
.参数 lpString, 文本型

.DLL命令 拷贝内存, , "CopyMemory_MSG", "RtlMoveMemory", , 拷贝内存
.参数 pDest, MSG
.参数 pSrc, 整数型, , 缓冲区
.参数 nLen, 整数型, , 尺寸

.DLL命令 在窗口结构中为指定的窗口设置信息, 子程序指针, , "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息
.参数 hWnd, 整数型, , 欲为其取得信息的窗口的句柄
.参数 nIndex, 整数型, , 属性，欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;
.参数 newLong, 子程序指针, , 由nIndex指定的窗口信息的新值

.DLL命令 从指定窗口的结构中取得信息, 子程序指针, , "GetWindowLongA", , 从指定窗口的结构中取得信息
.参数 hWnd, 整数型
.参数 nIndex, 整数型

.DLL命令 将消息传答窗口函数, 整数型, , "CallWindowProcA", , 将消息传答窗口函数
.参数 lpOldProc, 子程序指针
.参数 hWnd, 整数型
.参数 uMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 发送消息, 逻辑型, , "SendMessageA", , 发送消息
.参数 hWnd, 整数型
.参数 msg, 整数型
.参数 lparam, 整数型
.参数 waparam, 整数型