截获外部窗口任意消息例程

系统结构:onhook,unhook,SetWindowsHookExA,CallNextHookEx,UnhookWindowsHookEx,PostMessageA,SendMessageA,LoadLibraryA,FreeLibrary,GetProcAddress,GetWindowThreadProcessId,GetPropA,FindWindowA,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ onhook
           |  |
           |  |------ unhook
           |  |
           |  |------ _标签1_反馈事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowsHookExA
           |  |
           |  |---[dll]------   CallNextHookEx
           |  |
           |  |---[dll]------   UnhookWindowsHookEx
           |  |
           |  |---[dll]------   PostMessageA
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   LoadLibraryA
           |  |
           |  |---[dll]------   FreeLibrary
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   GetPropA
           |  |
           |  |---[dll]------   FindWindowA

调用的DLL命令:

.DLL命令 SetWindowsHookExA, 整数型
    .参数 idHook, 整数型
    .参数 lpfn, 子程序指针
    .参数 nMod, 整数型
    .参数 dwThreadID, 整数型

.DLL命令 CallNextHookEx, 整数型
    .参数 hhook, 整数型
    .参数 nCode, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 UnhookWindowsHookEx, 逻辑型
    .参数 hhook, 整数型

.DLL命令 PostMessageA, 逻辑型
    .参数 hWnd, 整数型
    .参数 msg, 整数型
    .参数 lparam, 整数型
    .参数 waparam, 整数型

.DLL命令 SendMessageA, 整数型
    .参数 hWnd, 整数型
    .参数 msg, 整数型
    .参数 lparam, 整数型
    .参数 waparam, 整数型

.DLL命令 LoadLibraryA, 整数型
    .参数 lpFileName, 文本型

.DLL命令 FreeLibrary, 逻辑型
    .参数 hMod, 整数型

.DLL命令 GetProcAddress, 子程序指针
    .参数 hMod, 整数型
    .参数 lpFileName, 文本型

.DLL命令 GetWindowThreadProcessId, 整数型
    .参数 hwnd, 整数型
    .参数 lpProcessID, 整数型

.DLL命令 GetPropA, 整数型
    .参数 hWnd, 整数型
    .参数 lpString, 文本型

.DLL命令 FindWindowA, 整数型
    .参数 lpCalssName, 文本型
    .参数 lpWindowName, 文本型