精易6.9 进程_ID取窗口句柄() 子程序修改建议

林风月西楼

.版本 2
.支持库 spec

.子程序 进程_ID取窗口句柄, 整数型, 公开, 通过进程ID取得该进程的窗口句柄,超时则返回零
.参数 进程ID, 整数型, , 该进程的ID;
.参数 _窗口标题, 文本型, 可空, 模糊参数 如果为空,忽略此参数
.参数 _窗口类名, 文本型, 可空, 模糊参数 如果为空,忽略此参数
.参数 超时, 整数型, 可空, 为空则无限循环
.参数 是否可见, 逻辑型, 可空, 默认为假枚举所有窗口,如为真则只查找可见窗口
.局部变量 局_超时时间
.局部变量 局_开始时间
.局部变量 局_窗口句柄
.局部变量 局_进程ID
.局部变量 局_标题, 文本型
.局部变量 局_类名, 文本型

局_开始时间 ＝ 取启动时间 ()
局_超时时间 ＝ 选择 (是否为空 (超时) 或 超时 ＝ -1, 31536000, 超时)
.判断循环首 (取启动时间 () － 局_开始时间 ＜ 局_超时时间)
    局_窗口句柄 ＝ FindWindowExA_文本 (0, 局_窗口句柄, 字符 (0), 字符 (0))
    .如果真 (IsWindow (局_窗口句柄) ＝ 1)
        .如果真 (IsWindowVisible (局_窗口句柄) ＝ 假 且 是否可见)
            到循环尾 ()
        .如果真结束
        局_进程ID ＝ 窗口_句柄取进程ID (局_窗口句柄)
        .如果真 (局_进程ID ＝ 进程ID)
            调试输出 (局_窗口句柄, 进程ID)
            局_标题 ＝ 窗口_取标题 (局_窗口句柄)
            局_类名 ＝ 窗口_取类名 (局_窗口句柄)
            .判断开始 (是否为空 (_窗口标题) 且 是否为空 (_窗口类名))
                返回 (局_窗口句柄)
                ' 两个参数为空，直接返回句柄.
            .判断 (是否为空 (_窗口标题))
                .如果真 (寻找文本 (局_类名, _窗口类名, , 假) ≠ -1)
                    返回 (局_窗口句柄)
                    ' 如果窗口标题参数为空，则判断类名，存在即返回句柄。
                .如果真结束

            .判断 (是否为空 (_窗口类名))
                .如果真 (寻找文本 (局_标题, _窗口标题, , 假) ≠ -1)
                    返回 (局_窗口句柄)
                    ' 如果类名参数为空，则判断标题，存在即返回句柄
                .如果真结束

            .默认
                .如果真 (寻找文本 (局_标题, _窗口标题, , 假) ≠ -1 且 寻找文本 (局_类名, _窗口类名, , 假) ≠ -1)
                    返回 (局_窗口句柄)
                    ' 如果两个参数都存在，则匹配2个满足条件时，返回句柄。
                .如果真结束

            .判断结束
            ' 返回 (0)  ' 这行去掉,以继续让它去查找。
        .如果真结束

    .如果真结束
    处理事件 ()
.判断循环尾 ()
返回 (0)

项目部002

已采纳建议，下月发布新版本前优化相应命令

林风月西楼

另,建议增加进程_名取句柄2()子程序 源码如下:

  

子程序名	返回值类型	公开	备 注
进程_名取句柄2	整数型
参数名	类 型	参考	可空	数组	备 注
参_进程名	文本型
参_窗口标题	文本型
参_窗口类名	文本型

变量名	类 型	静态	数组	备 注
进程信息数组	进程信息		0
i	整数型
临时进程信息	进程信息
窗口句柄	整数型

进程信息数组 ＝ 取系统进程列表 ()
计次循环首 (取数组成员数 (进程信息数组), i)
窗口句柄 ＝ 0
临时进程信息 ＝ 进程信息数组 [i]
调试输出 (临时进程信息.进程名称)
如果真 (临时进程信息.进程名称 ＝ 参_进程名)
窗口句柄 ＝ 进程_ID取窗口句柄 (临时进程信息.进程标识符, 参_窗口标题, 参_窗口类名)
如果真 (窗口句柄 ＞ 0)
跳出循环 ()


计次循环尾 ()
返回 (窗口句柄)

i支持库列表	支持库注释
eAPI	应用接口支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 spec<br /> <br /> .子程序 进程_名取句柄2, 整数型<br /> .参数 参_进程名, 文本型, 可空<br /> .参数 参_窗口标题, 文本型, 可空<br /> .参数 参_窗口类名, 文本型, 可空<br /> .局部变量 进程信息数组, 进程信息, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 临时进程信息, 进程信息<br /> .局部变量 窗口句柄, 整数型<br /> <br /> 进程信息数组 ＝ 取系统进程列表 ()<br /> .计次循环首 (取数组成员数 (进程信息数组), i)<br />     窗口句柄 ＝ 0<br />     临时进程信息 ＝ 进程信息数组 <i><br />     调试输出 (临时进程信息.进程名称)<br />     .如果真 (临时进程信息.进程名称 ＝ 参_进程名)<br />         窗口句柄 ＝ 进程_ID取窗口句柄 (临时进程信息.进程标识符, 参_窗口标题, 参_窗口类名)<br />         .如果真 (窗口句柄 ＞ 0)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (窗口句柄)

此子程序是基于以上子程序基础上的.