易语言同步操作演示源码

系统结构:鼠标钩子回调函数,枚举子窗口,枚举窗口过程,取类名,取句柄数组,取标题,api_设置系统钩子,api_呼叫下一钩子,api_释放系统钩子,api_取实例句柄,api_拷贝内存,GetClassName,GetWindowText,

======窗口程序集1
           |  |
           |  |------ 鼠标钩子回调函数
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 枚举子窗口
           |  |
           |  |------ 枚举窗口过程
           |  |
           |  |------ 取类名
           |  |
           |  |------ 取句柄数组
           |  |
           |  |------ 取标题
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   api_设置系统钩子
           |  |
           |  |---[dll]------   api_呼叫下一钩子
           |  |
           |  |---[dll]------   api_释放系统钩子
           |  |
           |  |---[dll]------   api_取实例句柄
           |  |
           |  |---[dll]------   api_拷贝内存
           |  |
           |  |---[dll]------   _ClientToScreen
           |  |
           |  |---[dll]------   _GetDesktopWindow
           |  |
           |  |---[dll]------   _GetWindow
           |  |
           |  |---[dll]------   _WindowFromPoint
           |  |
           |  |---[dll]------   _SendMessageA
           |  |
           |  |---[dll]------   _取当前窗口
           |  |
           |  |---[dll]------   _枚举子窗口
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindowText

调用的DLL命令:

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

.DLL命令 api_呼叫下一钩子, 整数型, "user32.dll", "CallNextHookEx", , , , CallNextHookEx
    .参数 钩子句柄, 整数型, , hHook
    .参数 回调函数参数1, 整数型, , ncode
    .参数 回调函数参数2, 整数型, , wParam
    .参数 回调函数参数3, 整数型, , lParam

.DLL命令 api_释放系统钩子, 整数型, "user32.dll", "UnhookWindowsHookEx", , , , UnhookWindowsHookEx
    .参数 钩子句柄, 整数型, , hHook

.DLL命令 api_取实例句柄, 整数型, , "GetModuleHandleA", , , ,
    .参数 程序名, 整数型

.DLL命令 api_拷贝内存, 整数型, "kernel32", "RtlMoveMemory", , , , RtlMoveMemory
    .参数 a, 整数型, , lpvDest
    .参数 b, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 _ClientToScreen, 整数型, , "ClientToScreen"
    .参数 窗口句柄, 整数型, , hwnd，要取出区域坐标的窗口句柄
    .参数 位置变量, 坐标结构, , lpPoint，参见相关帮助

.DLL命令 _GetDesktopWindow, 整数型, , "GetDesktopWindow", 公开, user32.dll返回屏幕的句柄

.DLL命令 _GetWindow, 整数型, , "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系(返回一个窗口句柄,没有找到或错误返回0)
    .参数 hwnd, 整数型, , 源窗口
    .参数 cmd, 整数型, , 指定结果窗口与源窗口的关系，它们建立在下述常数基础上

.DLL命令 _WindowFromPoint, 整数型, , "WindowFromPoint", 公开, user32.dll取指定坐标位置所在窗口组件的句柄(返回句柄)
    .参数 X轴光标, 整数型
    .参数 Y轴光标, 整数型

.DLL命令 _SendMessageA, 整数型, , "SendMessageA", 公开
    .参数 窗口句柄, 整数型
    .参数 标识, 整数型
    .参数 消息1, 整数型
    .参数 消息2, 整数型

.DLL命令 _取当前窗口, 整数型, , "GetForegroundWindow", 公开, user32.dll返回前台窗口句柄

.DLL命令 _枚举子窗口, 逻辑型, , "EnumChildWindows"
    .参数 hWndParent, 整数型, , 父窗口句柄
    .参数 lpEnumFunc, 子程序指针, , 回调指针
    .参数 lParam, 整数型

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

.DLL命令 GetWindowText, 整数型, , "GetWindowTextA", , user32.dll取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）　复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 文本, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 文本长度, 整数型, , lp缓冲区的长度;