关于精易模块模糊枚举窗口句柄的问题

xp0869

精易模块中枚举窗口句柄的命令:
窗口_取句柄_模糊 这个命令,没有大漠EnumWindowByProcess命令的功能全面,缺少按启动顺序枚举窗口句柄的功能,
能否添加一个这种功能的命令吗?
精易模块不更新了吗?

lity2310

精易模块的不行就用其他的呗，精易模块不是万能的

幻想大人

调用精易模块

  

子程序名	返回值类型	公开	备 注
EnumWindowByProcess	文本型		模仿大漠EnumWindowByProcess  返回所有匹配的窗口句柄字符串,格式"hwnd1,hwnd2,hwnd3"
参数名	类 型	参考	可空	数组	备 注
process_name	文本型				进程名
title	文本型				窗口标题
class_name	文本型				窗口类名
是否只取第一个	逻辑型				真为只匹配指定映像的所对应的第一个进程, 默认假

变量名	类 型	静态	数组	备 注
ID数组	整数型		0
局_标题	文本型
局_类名	文本型
i	整数型
Text_Obj	类_快速文本
hwnd	整数型
ret	文本型

局_标题 ＝ title
局_类名 ＝ class_name
进程_取同名ID (process_name, ID数组, )
如果真 (取数组成员数 (ID数组) ≥ 0)
判断 (是否只取第一个)
ret ＝ 到文本 (进程_ID取窗口句柄 (ID数组 [1], 局_标题, 局_类名, , ))
计次循环首 (取数组成员数 (ID数组), i)
hwnd ＝ 进程_ID取窗口句柄 (ID数组 [i], 局_标题, 局_类名, , )
如果 (i ＜ 取数组成员数 (ID数组))
Text_Obj.添加 (到文本 (hwnd) ＋ “,”)
Text_Obj.添加 (到文本 (hwnd))

计次循环尾 ()
ret ＝ Text_Obj.取文本 ()
Text_Obj.清空内容 ()

返回 (ret)

.版本 2<br /> <br /> .子程序 EnumWindowByProcess, 文本型, , 模仿大漠EnumWindowByProcess  返回所有匹配的窗口句柄字符串,格式"hwnd1,hwnd2,hwnd3"<br /> .参数 process_name, 文本型, , 进程名<br /> .参数 title, 文本型, 可空, 窗口标题<br /> .参数 class_name, 文本型, 可空, 窗口类名<br /> .参数 是否只取第一个, 逻辑型, 可空, 真为只匹配指定映像的所对应的第一个进程, 默认假<br /> .局部变量 ID数组, 整数型, , "0"<br /> .局部变量 局_标题, 文本型<br /> .局部变量 局_类名, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 Text_Obj, 类_快速文本<br /> .局部变量 hwnd, 整数型<br /> .局部变量 ret, 文本型<br /> <br /> 局_标题 ＝ title<br /> 局_类名 ＝ class_name<br /> 进程_取同名ID (process_name, ID数组, )<br /> .如果真 (取数组成员数 (ID数组) ≥ 0)<br />     .判断开始 (是否只取第一个)<br />         ret ＝ 到文本 (进程_ID取窗口句柄 (ID数组 [1], 局_标题, 局_类名, , ))<br />     .默认<br />         .计次循环首 (取数组成员数 (ID数组), i)<br />             hwnd ＝ 进程_ID取窗口句柄 (ID数组 <i>, 局_标题, 局_类名, , )<br />             .如果 (i ＜ 取数组成员数 (ID数组))<br />                 Text_Obj.添加 (到文本 (hwnd) ＋ “,”)<br />             .否则<br />                 Text_Obj.添加 (到文本 (hwnd))<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         ret ＝ Text_Obj.取文本 ()<br />         Text_Obj.清空内容 ()<br />     .判断结束<br /> <br /> .如果真结束<br /> 返回 (ret)

幻想大人

调用精易模块，源码也发上来给你

  

子程序名	返回值类型	公开	备 注
EnumWindowByProcess	文本型		模仿大漠EnumWindowByProcess  返回所有匹配的窗口句柄字符串,格式"hwnd1,hwnd2,hwnd3"
参数名	类 型	参考	可空	数组	备 注
process_name	文本型				进程名
title	文本型				窗口标题
class_name	文本型				窗口类名
是否只取第一个	逻辑型				真为只匹配指定映像的所对应的第一个进程, 默认假

变量名	类 型	静态	数组	备 注
ID数组	整数型		0
局_标题	文本型
局_类名	文本型
i	整数型
Text_Obj	类_快速文本
hwnd	整数型
ret	文本型

局_标题 ＝ title
局_类名 ＝ class_name
进程_取同名ID (process_name, ID数组, )
如果真 (取数组成员数 (ID数组) ≥ 0)
判断 (是否只取第一个)
ret ＝ 到文本 (进程_ID取窗口句柄 (ID数组 [1], 局_标题, 局_类名, , ))
计次循环首 (取数组成员数 (ID数组), i)
hwnd ＝ 进程_ID取窗口句柄 (ID数组 [i], 局_标题, 局_类名, , )
如果 (i ＜ 取数组成员数 (ID数组))
Text_Obj.添加 (到文本 (hwnd) ＋ “,”)
Text_Obj.添加 (到文本 (hwnd))

计次循环尾 ()
ret ＝ Text_Obj.取文本 ()
Text_Obj.清空内容 ()

返回 (ret)

.版本 2<br /> <br /> .子程序 EnumWindowByProcess, 文本型, , 模仿大漠EnumWindowByProcess  返回所有匹配的窗口句柄字符串,格式"hwnd1,hwnd2,hwnd3"<br /> .参数 process_name, 文本型, , 进程名<br /> .参数 title, 文本型, 可空, 窗口标题<br /> .参数 class_name, 文本型, 可空, 窗口类名<br /> .参数 是否只取第一个, 逻辑型, 可空, 真为只匹配指定映像的所对应的第一个进程, 默认假<br /> .局部变量 ID数组, 整数型, , "0"<br /> .局部变量 局_标题, 文本型<br /> .局部变量 局_类名, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 Text_Obj, 类_快速文本<br /> .局部变量 hwnd, 整数型<br /> .局部变量 ret, 文本型<br /> <br /> 局_标题 ＝ title<br /> 局_类名 ＝ class_name<br /> 进程_取同名ID (process_name, ID数组, )<br /> .如果真 (取数组成员数 (ID数组) ≥ 0)<br />     .判断开始 (是否只取第一个)<br />         ret ＝ 到文本 (进程_ID取窗口句柄 (ID数组 [1], 局_标题, 局_类名, , ))<br />     .默认<br />         .计次循环首 (取数组成员数 (ID数组), i)<br />             hwnd ＝ 进程_ID取窗口句柄 (ID数组 <i>, 局_标题, 局_类名, , )<br />             .如果 (i ＜ 取数组成员数 (ID数组))<br />                 Text_Obj.添加 (到文本 (hwnd) ＋ “,”)<br />             .否则<br />                 Text_Obj.添加 (到文本 (hwnd))<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         ret ＝ Text_Obj.取文本 ()<br />         Text_Obj.清空内容 ()<br />     .判断结束<br /> <br /> .如果真结束<br /> 返回 (ret)

补充内容 (2025-4-14 22:14):
这个就是按启动顺序的