进程_ID取窗口句柄 获取为空

咸鱼666

屏蔽：' 返回 (0)  ' 进程ID的唯一性，以上不满足的话，这里要直接返回0了。
存在先找到子窗口的情况

.版本 2
.支持库 spec

.子程序 进程_ID取窗口句柄, 整数型, 公开, 通过进程ID取得该进程的窗口句柄,超时则返回零;PS:返回的句柄不一定是祖句柄,只要满足条件就返回
.参数 进程ID, 整数型, , 该进程的ID;
.参数 窗口标题, 文本型, 可空, 模糊参数 如果为空,忽略此参数
.参数 窗口类名, 文本型, 可空, 模糊参数 如果为空,忽略此参数
.参数 超时, 整数型, 可空, 为空则无限循环
.参数 是否可见, 逻辑型, 可空, 可空 默认为真,只查找可见的窗口;为假则查找包括不可见的窗口
.局部变量 局_开始时间, 整数型
.局部变量 局_超时时间, 整数型
.局部变量 局_窗口句柄, 整数型
.局部变量 局_进程ID, 整数型
.局部变量 局_类名, 文本型
.局部变量 局_标题, 文本型

.如果真 (是否为空 (是否可见))
    是否可见 ＝ 真
.如果真结束

局_开始时间 ＝ 取启动时间 ()
局_超时时间 ＝ 选择 (是否为空 (超时) 或 超时 ＝ -1, 31536000, 超时)
.判断循环首 (取启动时间 () － 局_开始时间 ＜ 局_超时时间)
    局_窗口句柄 ＝ FindWindowExA (0, 局_窗口句柄, 0, 0)
    .如果真 (IsWindow (局_窗口句柄) ＝ 1)
        .如果真 (是否可见)
            .如果真 (IsWindowVisible (局_窗口句柄) ＝ 假)
                到循环尾 ()
            .如果真结束

        .如果真结束

        ' 返回的句柄不一定是祖句柄，只要满足条件就返回！
        局_进程ID ＝ 窗口_句柄取进程ID (局_窗口句柄)
        .如果真 (局_进程ID ＝ 进程ID)
            局_标题 ＝ 窗口_取标题 (局_窗口句柄)
            局_类名 ＝ 窗口_取类名 (局_窗口句柄)
            调试输出 (局_标题, 局_类名)
            .判断开始 (是否为空 (窗口标题) 且 是否为空 (窗口类名))
                返回 (局_窗口句柄)
                ' 两个参数为空，直接返回句柄.
            .判断 (是否为空 (窗口标题))
                .如果真 (寻找文本 (局_类名, 窗口类名, , 假) ≠ -1)
                    返回 (局_窗口句柄)
                .如果真结束
                ' 如果窗口标题参数为空，则判断类名，存在即返回句柄。
            .判断 (是否为空 (窗口类名))
                .如果真 (寻找文本 (局_标题, 窗口标题, , 假) ≠ -1)
                    返回 (局_窗口句柄)
                .如果真结束
                ' 如果类名参数为空，则判断标题，存在即返回句柄
            .默认

                .如果真 (寻找文本 (局_标题, 窗口标题, , 假) ≠ -1 且 寻找文本 (局_类名, 窗口类名, , 假) ≠ -1)
                    返回 (局_窗口句柄)
                .如果真结束
                ' 如果两个参数都存在，则匹配2个满足条件时，返回句柄。
            .判断结束
            ' 返回 (0)  ' 进程ID的唯一性，以上不满足的话，这里要直接返回0了。
        .如果真结束

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

欸嘿

666666666666666666666

yangxiaofei1989

打击好我这个很好用的谢谢大家

yangxiaofei1989

.版本 2      用户列表 ＝ 分割文本 (数据, “|”, )     .如果真 (取数组成员数 (用户列表) － 1 ＝ 列表框1.取项目数 ())         返回 ()     .如果真结束     列表框1.清空 ()     .计次循环首 (取数组成员数 (用户列表), a)         .如果真 (a ＝ 取数组成员数 (用户列表))             跳出循环 ()         .如果真结束         列表框1.加入项目 (用户列表 [a ＋ 1], )     .计次循环尾 ()

项目部004

EnumParenthwnd 进程_ID取窗口句柄
https://bbs.125.la/forum.php?mod=viewthread&tid=14706129
(出处: 精易论坛)


各种情况不统一！自己根据需求修改！