|
楼主 |
发表于 2020-7-17 16:40:59
|
显示全部楼层
广西壮族自治区钦州市
.版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .程序集变量 程序集变量_找到的QQ窗口句柄, 整数型, , "0" .子程序 _按钮1_被单击 时钟1.时钟周期 = 1000 ' 枚举父窗口子程序,是把所有找到的窗口处理不需要的窗口ID,把要用的窗口ID返回结果 .子程序 枚举找到的父窗口ID, 整数型 .参数 找到的窗口句柄, 整数型 .参数 自定义数字, 整数型 .局部变量 找到的窗口类名, 文本型 .局部变量 找到的窗口标题, 文本型 ' 注意代码不能写在返回后面 找到的窗口类名 = 取空白文本 (255) 找到的窗口标题 = 取空白文本 (255) API_取得类名称 (找到的窗口句柄, 找到的窗口类名, 255) API_取窗口标题 (找到的窗口句柄, 找到的窗口标题, 255) ' 第一步筛选过滤类名 .如果真 (找到的窗口类名 = “TXGuiFoundation”) ' 第二步筛选过滤标题 .判断开始 (找到的窗口标题 ≠ “” 且 找到的窗口标题 ≠ “QQ” 且 找到的窗口标题 ≠ “TXMenuWindow” 且 找到的窗口标题 ≠ “查找”) 加入成员 (程序集变量_找到的QQ窗口句柄, 找到的窗口句柄) 调试输出 (程序集变量_找到的QQ窗口句柄) .默认 .判断结束 .如果真结束 ' 调试输出 (找到的窗口句柄, 找到的窗口类名, 找到的窗口标题) 返回 (找到的窗口句柄) .子程序 _时钟1_周期事件 获得前台窗口ID和窗口矩形 () .子程序 获得前台窗口ID和窗口矩形 .局部变量 矩形, RECT .局部变量 i, 整数型 ' 注意寻找地址 + & 先清除数组在加入数组,防止数组一直无限累加下去 清除数组 (程序集变量_找到的QQ窗口句柄) API_枚举父窗口 (到整数 (&枚举找到的父窗口ID), 10) ' 获取到得前台窗口ID如果等于,自己启动窗口ID,什么都不做 .' 如果真 (API_取前台窗口 () = _启动窗口.取窗口句柄 ()) ' 返回 () .如果真结束 .计次循环首 (取数组成员数 (程序集变量_找到的QQ窗口句柄), i) .如果真 (API_取前台窗口 () = 程序集变量_找到的QQ窗口句柄 [i]) API_取窗口矩形 (程序集变量_找到的QQ窗口句柄 [i], 矩形) _启动窗口.可视 = 真 _启动窗口.移动 (矩形.右边, 矩形.顶边, , 矩形.底边) 返回 () .如果真结束 .计次循环尾 () _启动窗口.可视 = 假 |
|