非常完善的枚举窗口

什么叫易

https://bbs.125.la/forum.php?mod=viewthread&tid=14372461&page=1&ordertype=1#pid16032895之前发的老板键的BUG算是彻底解决了。
https://bbs.125.la/forum.php?mod=viewthread&tid=14373025&extra=
这是没弄好发的问题。彗星是背景一个窗口,中间用户区一个窗口画的。所以取了2个。QQ的TXGuiFoundation库封装的DirectUI 进行GetParent (hwnd) ＝ 0判断后就获取不到。所以加了好长一截判断。
这是取出来的窗口,取出来的项目和任务管理器一致,任务管理器取不到的某些特殊程序这个也可以获取到,不知道有没有其他BUG。易语言的取窗口列表 是判断可视返回。会有重的。空名的。去掉又需要循环。

  

子程序名	返回值类型	公开	备 注
枚举窗口	整数型
参数名	类 型	参考	可空	数组	备 注
接收数组	窗口信息
可视窗口	逻辑型				可空,默认为真
排除空标题窗口	逻辑型				可空,默认为真
屏蔽系统窗口	逻辑型				可空,默认为真。屏蔽Program Manager和任务栏Shell_TrayWnd下的窗口
只取父窗口	逻辑型				可空,默认为真。某些窗口会生成多个窗口只取其父。

变量名	类 型	静态	数组	备 注
传参	整数型
x	整数型
局父句柄	整数型
y	整数型

清除数组 (集_窗口列表)
传参 ＝ 0
如果真 (是否为空 (可视窗口))
可视窗口 ＝ 真
如果真 (是否为空 (排除空标题窗口))
排除空标题窗口 ＝ 真
如果真 (是否为空 (屏蔽系统窗口))
屏蔽系统窗口 ＝ 真
如果真 (是否为空 (只取父窗口))
只取父窗口 ＝ 真
' ---------------------------------------
如果真 (可视窗口)
传参 ＝ 传参 ＋ 1
如果真 (排除空标题窗口)
传参 ＝ 传参 ＋ 2
如果真 (屏蔽系统窗口)
传参 ＝ 传参 ＋ 4
EnumWindows (&枚举过程, 传参)
如果真 (只取父窗口)
计次循环首 (取数组成员数 (集_窗口列表), x)
变量循环首 (取数组成员数 (集_窗口列表), x ＋ 1, -1, y)
如果真 (GetParent (集_窗口列表 [x].窗口句柄) ＝ 集_窗口列表 [y].窗口句柄)  ' 如果有同一程序的窗口,对比取出父窗口
删除成员 (集_窗口列表, x, )

变量循环尾 ()
计次循环尾 ()
接收数组 ＝ 集_窗口列表
返回 (取数组成员数 (集_窗口列表))

子程序名	返回值类型	公开	备 注
枚举过程	整数型		'HWND为0会自动结束
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
局窗口信息	窗口信息
局窗口相关	WINDOWINFO
局父句柄	整数型
x	整数型
y	整数型

局窗口信息.窗口句柄 ＝ hwnd
局窗口信息.窗口标题 ＝ 取窗口标题 (hwnd)
局窗口信息.窗口类名 ＝ 取窗口类名 (hwnd)
如果 (lParam ＝ 0)
加入成员 (集_窗口列表, 局窗口信息)
GetWindowInfo (hwnd, 局窗口相关)
如果真 (位与 (lParam, 1) ＞ 0)  ' 可见
如果真 (位与 (局窗口相关.窗口样式, #WS_VISIBLE ) ＜ 1)  ' 取样式也可以GetWindowLongA (hwnd, #GWL_STYLE)。
返回 (1)

如果真 (位与 (lParam, 2) ＞ 0)  ' 空标题
如果真 (局窗口信息.窗口标题 ＝ “”)
返回 (1)

如果真 (位与 (lParam, 4) ＞ 0)
如果真 (局窗口信息.窗口标题 ＝ “Program Manager” 或 取窗口类名 (GetParent (hwnd)) ＝ “Shell_TrayWnd”)  ' 屏蔽掉WIN7系统下的窗口
返回 (1)

加入成员 (集_窗口列表, 局窗口信息)
返回 (1)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 枚举窗口, 整数型, 公开<br /> .参数 接收数组, 窗口信息, 数组<br /> .参数 可视窗口, 逻辑型, 可空, 可空,默认为真<br /> .参数 排除空标题窗口, 逻辑型, 可空, 可空,默认为真<br /> .参数 屏蔽系统窗口, 逻辑型, 可空, 可空,默认为真。屏蔽Program Manager和任务栏Shell_TrayWnd下的窗口<br /> .参数 只取父窗口, 逻辑型, 可空, 可空,默认为真。某些窗口会生成多个窗口只取其父。<br /> .局部变量 传参, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 局父句柄, 整数型<br /> .局部变量 y, 整数型<br /> <br /> 清除数组 (集_窗口列表)<br /> 传参 ＝ 0<br /> .如果真 (是否为空 (可视窗口))<br />     可视窗口 ＝ 真<br /> .如果真结束<br /> .如果真 (是否为空 (排除空标题窗口))<br />     排除空标题窗口 ＝ 真<br /> .如果真结束<br /> .如果真 (是否为空 (屏蔽系统窗口))<br />     屏蔽系统窗口 ＝ 真<br /> .如果真结束<br /> .如果真 (是否为空 (只取父窗口))<br />     只取父窗口 ＝ 真<br /> .如果真结束<br /> ' ---------------------------------------<br /> .如果真 (可视窗口)<br />     传参 ＝ 传参 ＋ 1<br /> .如果真结束<br /> .如果真 (排除空标题窗口)<br />     传参 ＝ 传参 ＋ 2<br /> .如果真结束<br /> .如果真 (屏蔽系统窗口)<br />     传参 ＝ 传参 ＋ 4<br /> .如果真结束<br /> EnumWindows (&枚举过程, 传参)<br /> .如果真 (只取父窗口)<br />     .计次循环首 (取数组成员数 (集_窗口列表), x)<br />         .变量循环首 (取数组成员数 (集_窗口列表), x ＋ 1, -1, y)<br />             .如果真 (GetParent (集_窗口列表 [x].窗口句柄) ＝ 集_窗口列表 [y].窗口句柄)  ' 如果有同一程序的窗口,对比取出父窗口<br />                 删除成员 (集_窗口列表, x, )<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> 接收数组 ＝ 集_窗口列表<br /> 返回 (取数组成员数 (集_窗口列表))<br /> <br /> .子程序 枚举过程, 整数型, , 'HWND为0会自动结束<br /> .参数 hwnd, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 局窗口信息, 窗口信息<br /> .局部变量 局窗口相关, WINDOWINFO<br /> .局部变量 局父句柄, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> 局窗口信息.窗口句柄 ＝ hwnd<br /> 局窗口信息.窗口标题 ＝ 取窗口标题 (hwnd)<br /> 局窗口信息.窗口类名 ＝ 取窗口类名 (hwnd)<br /> .如果 (lParam ＝ 0)<br />     加入成员 (集_窗口列表, 局窗口信息)<br /> .否则<br />     GetWindowInfo (hwnd, 局窗口相关)<br />     .如果真 (位与 (lParam, 1) ＞ 0)  ' 可见<br />         .如果真 (位与 (局窗口相关.窗口样式, #WS_VISIBLE) ＜ 1)  ' 取样式也可以GetWindowLongA (hwnd, #GWL_STYLE)。<br />             返回 (1)<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (位与 (lParam, 2) ＞ 0)  ' 空标题<br />         .如果真 (局窗口信息.窗口标题 ＝ “”)<br />             返回 (1)<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (位与 (lParam, 4) ＞ 0)<br />         .如果真 (局窗口信息.窗口标题 ＝ “Program Manager” 或 取窗口类名 (GetParent (hwnd)) ＝ “Shell_TrayWnd”)  ' 屏蔽掉WIN7系统下的窗口<br />             返回 (1)<br />         .如果真结束<br /> <br />     .如果真结束<br />     加入成员 (集_窗口列表, 局窗口信息)<br /> .如果结束<br /> 返回 (1)

取窗口列表.e (8.11 KB, 下载次数: 230)

2019-5-20 04:24 上传

点击文件名下载附件 源码示例

wlsk888

谢谢分享，学习学习

feiliu

11111111111111

zlj8zlj8

111111111111111111

必兮相语

666666666666666666666666

必兮相语

666666666666666666666666

xiaohao122

1080090

666666666666666666666666

2161045897

感谢分享~~~~~~~~~

小迷人啦啦啦

支持开源~！感谢分享