易语言拦截剪贴板的数据

系统结构:关闭Office剪贴板,API_GetClipboardOwner,API_GetClipboardSequenceNumber,API_寻找顶级窗口,API_判断子窗口,API_取前台窗口,API_发送消息,API_设置窗口标题,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 关闭Office剪贴板
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_GetClipboardOwner
           |  |
           |  |---[dll]------   API_GetClipboardSequenceNumber
           |  |
           |  |---[dll]------   API_寻找顶级窗口
           |  |
           |  |---[dll]------   API_判断子窗口
           |  |
           |  |---[dll]------   API_取前台窗口
           |  |
           |  |---[dll]------   API_发送消息
           |  |
           |  |---[dll]------   API_设置窗口标题

调用的DLL命令:

.DLL命令 API_GetClipboardOwner, 整数型, "user32", "GetClipboardOwner", , 返回剪贴板所有者窗口句柄　

.DLL命令 API_GetClipboardSequenceNumber, 整数型, "user32.dll", "GetClipboardSequenceNumber", , 　

.DLL命令 API_寻找顶级窗口, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）　找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口类名, 整数型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&, cnt&Dim rttitle As  * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left, 0, "RTMain title";

.DLL命令 API_判断子窗口, 整数型, "user32", "IsChild", , 判断一个窗口是否为另一窗口的子或隶属窗口　非零表示成功，零表示失败
    .参数 父窗口句柄, 整数型, , 父窗口的句柄
    .参数 欲测试的窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 API_取前台窗口, 整数型, "user32", "GetForegroundWindow", , 获得前台窗口的句柄。这里的“前台窗口”是指前台应用程序的活动窗口　前台窗口的句柄

.DLL命令 API_发送消息, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 API_设置窗口标题, 整数型, "user32", "SetWindowTextA", , 设置窗口的标题文字或控件的内容（在vb里使用：针对vb窗体，应使用caption或text属性）　非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 要设置文字的窗口的句柄
    .参数 窗口标题, 文本型, , 要设到hwnd窗口中的文字;