请求增加 取句柄数组。

我叫林舒书

先提交参考源码。取自某模块的。

[e]
.版本 2

.子程序 取句柄数组, 整数型, 公开, 通过进程,类名或标题关键字来取窗口句柄(返回符合条件的句柄数目,失败返回0)
.参数 句柄数组, 整数型, 数组, 返回的窗口句柄数组
.参数 进程名, 文本型, 可空, 欲取窗口句柄的窗口程序进程名(注意大小写)
.参数 类名, 文本型, 可空, 欲取窗口句柄的窗口类名
.参数 标题, 文本型, 可空, 欲取窗口句柄的窗口标题关键字
.局部变量 窗口列表, 窗口信息型, , "0"
.局部变量 a, 整数型
.局部变量 数目, 整数型
.局部变量 返回数组, 整数型, , "0"
.局部变量 进程列表, 进程信息型, , "0"
.局部变量 进程数, 整数型
.局部变量 i, 整数型
.局部变量 满足, 逻辑型

.如果真 (进程名 ＝ “” 且 类名 ＝ “” 且 标题 ＝ “”)
输出调试文本 (“开什么玩笑!一个条件都没有,怎么取句柄?”)
返回 (0)
.如果真结束
进程数 ＝ 进程枚举 (进程列表)
.计次循环首 (枚举窗口信息 (窗口列表), a)
.如果真 (进程名 ≠ “”)
满足 ＝ 假
.计次循环首 (进程数, i)
.如果真 (进程列表 .进程ID ＝ 窗口列表 [a].进程ID)
满足 ＝ 真
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (满足 ＝ 假)
到循环尾 ()
.如果真结束

.如果真结束
.如果真 (类名 ≠ “”)
.如果真 (窗口列表 [a].窗口类名 ≠ 类名)
到循环尾 ()
.如果真结束

.如果真结束
.如果真 (标题 ≠ “”)
.如果真 (寻找文本 (窗口列表 [a].窗口标题, 标题, , 假) ＝ -1)
到循环尾 ()
.如果真结束

.如果真结束
加入成员 (返回数组, 窗口列表 [a].窗口句柄)
.计次循环尾 ()
句柄数组 ＝ 返回数组
返回 (取数组成员数 (句柄数组))

[/e]

[e]
.版本 2

.子程序 进程枚举, 整数型, 公开, 失败返回0，成功返回进程数量(该命令为高级成员命令)
.参数 进程信息, 进程信息型, 可空 数组, 返回的进程信息 数组
.局部变量 信息, 进程信息_
.局部变量 进程快照, 整数型
.局部变量 进程句柄, 整数型
.局部变量 临时进程信息, 进程信息型
.局部变量 临时进程信息组, 进程信息型, , "0"

进程快照 ＝ CreateToolhelp32Snapshot (15, 0)
.如果真 (进程快照 ＝ 0)
返回 (0)
.如果真结束
信息.dwSize ＝ 1024
进程句柄 ＝ Process32First (进程快照, 信息)
.判断循环首 (进程句柄 ≠ 0)
.如果真 (信息.进程ID ≠ 0)
临时进程信息.父进程ID ＝ 信息.th32ParentProcessID
临时进程信息.进程ID ＝ 信息.进程ID
临时进程信息.进程名称 ＝ 到文本 (信息.进程名称)
临时进程信息.进程路径 ＝ 取进程路径 (信息.进程ID)
加入成员 (临时进程信息组, 临时进程信息)
.如果真结束
进程句柄 ＝ Process32Next (进程快照, 信息)
.判断循环尾 ()
CloseHandle (进程快照)
进程信息 ＝ 临时进程信息组
返回 (取数组成员数 (进程信息))

[/e]
[e]
.版本 2

.子程序 枚举窗口信息, 整数型, 公开, 枚举所有可见窗口的句柄的窗口信息(返回数组数目,失败返回0)
.参数 临时窗口信息, 窗口信息型, 数组, 枚举出来的窗口信息数组

EnumWindows (&窗口信息回调函数, 0)
临时窗口信息 ＝ 当前窗口信息
清除数组 (当前窗口信息)
返回 (取数组成员数 (临时窗口信息))


[/e]


1.用途：控制多个同类名窗口的话可以用。不需要一个一个去寻找句柄。
2.改善建议：发现精易模块很多都是使用方法。为什么不直接写成类的形式呢？如果要用文本的话，直接生成个文本对象然后进行操作，这样的写法是不是更便于阅读和维护呢？易语言是高级面向对象的语言吧？
3.bug反馈：图片_转换（） 这个命令放在多线程中会引起软件崩溃。 自己对图片这块不是很了解，暂时不清楚出了什么问题。望测试。

就以上三点

Mamy

图片转换多线程下确实有问题

以下是测试代码：将软件编译后运行，一会会就崩溃

[e]
.版本 2
.支持库 EThread

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.计次循环首 (10, )
启动线程 (&子程序_转换测试, , )
处理事件 ()
.计次循环尾 ()


.子程序 子程序_转换测试
.局部变量 imgDataF, 字节集
.局部变量 imgDataT, 字节集

.计次循环首 (10000, )
imgDataF ＝ 网页_访问_对象 (“”)
图片_转换 (imgDataF, 1, , imgDataT)
' 调试输出 (imgDataT)
.计次循环尾 ()

[/e]

御风软件

1.这个，你可以是精易模块的 窗口_ 开头相关的命令组合，如：窗口_枚举子窗口 ()
2.方法可以直接调用，不用每次都声明一个类，方便，而且是看情况做类和方法的
3.为什么崩溃，我不知道，也可能是你自己的代码不严禁，同时使用，或其他原因导致的
   我多线程的时候，这个没有出现过崩溃。。而且，这个我也不懂这个图片代码，哈哈