代码记录,GetWindow遍历所有窗口/子窗口 - 精易论坛

子程序名	返回值类型	公开	备注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类型	静态	数组	备注
查找结果	整数型		0
结果数	整数型

结果数＝枚举窗口_ (GetDesktopWindow (), 4820, “Internet Explorer_Server”, 字符 (0), 真, 查找结果) ' 在IE进程中查找 Internet Explorer_Server
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备注
枚举窗口_	整数型
参数名	类型	参考	可空	数组	备注
起始句柄_	整数型
进程ID_	整数型				如无请填写 0
类名_	文本型				如无请填写字符(0)
标题_	文本型				如无请填写字符(0)
完全查找_	逻辑型				真:遍历完所有句柄,将符合条件的句柄全部抓取; 假:发现符合条件的句柄后立即返回
结果数组_	整数型				如有多个,则在此获得反馈,返回值将为查找到的数量。

变量名	类型	静态	数组	备注
子句柄	整数型
结果	整数型
句柄所属进程ID	整数型
句柄类名	文本型
句柄标题	文本型

如果真 (进程ID_ ＝ 0 且类名_ ＝字符 (0) 且标题_ ＝字符 (0)) ' 至少需要一个条件

返回 (0)
句柄类名＝取空白文本 ( #MAX_PATH )
句柄标题＝取空白文本 ( #MAX_PATH )

如果真 (起始句柄_ ≠ 0)

子句柄＝ GetWindow (起始句柄_, #GW_CHILD )

判断循环首 (子句柄 ≠ 0)

结果＝枚举窗口_ (子句柄, 进程ID_, 类名_, 标题_, 完全查找_, 结果数组_)

如果真 (结果 ≠ 0)

返回 (结果)

GetWindowThreadProcessId (子句柄, 句柄所属进程ID)

GetClassNameA (子句柄, 句柄类名, #MAX_PATH )

GetWindowTextA (子句柄, 句柄标题, #MAX_PATH )

判断 (句柄所属进程ID ≠ 0 且类名_ ≠ 字符 (0) 且标题_ ≠ 字符 (0))

如果真 (句柄所属进程ID ＝进程ID_ 且句柄类名＝类名_ 且句柄标题＝标题_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

判断 (句柄所属进程ID ≠ 0 且类名_ ≠ 字符 (0) 且标题_ ＝字符 (0))

如果真 (句柄所属进程ID ＝进程ID_ 且句柄类名＝类名_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

判断 (句柄所属进程ID ≠ 0 且类名_ ＝字符 (0) 且标题_ ≠ 字符 (0))

如果真 (句柄所属进程ID ＝进程ID_ 且句柄标题＝标题_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

判断 (句柄所属进程ID ＝ 0 且类名_ ≠ 字符 (0) 且标题_ ≠ 字符 (0))

如果真 (句柄类名＝类名_ 且句柄标题＝标题_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

判断 (句柄所属进程ID ＝ 0 且类名_ ＝字符 (0) 且标题_ ≠ 字符 (0))

如果真 (句柄标题＝标题_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

判断 (句柄所属进程ID ＝ 0 且类名_ ≠ 字符 (0) 且标题_ ＝字符 (0))

如果真 (句柄类名＝类名_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

判断 (句柄所属进程ID ≠ 0 且类名_ ＝字符 (0) 且标题_ ＝字符 (0))

如果真 (句柄所属进程ID ＝进程ID_)

判断 (完全查找_)

加入成员 (结果数组_, 子句柄)

返回 (子句柄)

子句柄＝ GetWindow (子句柄, #GW_HWNDNEXT )

判断循环尾 ()
返回 (取数组成员数 (结果数组_))

.版本 2<br />
<br />
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br />
.局部变量 查找结果, 整数型, , "0"<br />
.局部变量 结果数, 整数型<br />
<br />
结果数 ＝ 枚举窗口_ (GetDesktopWindow (), 4820, “Internet Explorer_Server”, 字符 (0), 真, 查找结果)  ' 在IE进程中查找 Internet Explorer_Server<br />
返回 (0)  ' 可以根据您的需要返回任意数值<br />
<br />
.子程序 枚举窗口_, 整数型<br />
.参数 起始句柄_, 整数型<br />
.参数 进程ID_, 整数型, , 如无请填写 0<br />
.参数 类名_, 文本型, , 如无请填写 字符(0)<br />
.参数 标题_, 文本型, , 如无请填写 字符(0)<br />
.参数 完全查找_, 逻辑型, , 真:遍历完所有句柄,将符合条件的句柄全部抓取; 假:发现符合条件的句柄后立即返回<br />
.参数 结果数组_, 整数型, 参考 可空 数组, 如有多个,则在此获得反馈,返回值将为查找到的数量。<br />
.局部变量 子句柄, 整数型<br />
.局部变量 结果, 整数型<br />
.局部变量 句柄所属进程ID, 整数型<br />
.局部变量 句柄类名, 文本型<br />
.局部变量 句柄标题, 文本型<br />
<br />
.如果真 (进程ID_ ＝ 0 且 类名_ ＝ 字符 (0) 且 标题_ ＝ 字符 (0))  ' 至少需要一个条件<br />
    返回 (0)<br />
.如果真结束<br />
句柄类名 ＝ 取空白文本 (#MAX_PATH)<br />
句柄标题 ＝ 取空白文本 (#MAX_PATH)<br />
.如果真 (起始句柄_ ≠ 0)<br />
    子句柄 ＝ GetWindow (起始句柄_, #GW_CHILD)<br />
    .判断循环首 (子句柄 ≠ 0)<br />
        结果 ＝ 枚举窗口_ (子句柄, 进程ID_, 类名_, 标题_, 完全查找_, 结果数组_)<br />
        .如果真 (结果 ≠ 0)<br />
            返回 (结果)<br />
        .如果真结束<br />
        GetWindowThreadProcessId (子句柄, 句柄所属进程ID)<br />
        GetClassNameA (子句柄, 句柄类名, #MAX_PATH)<br />
        GetWindowTextA (子句柄, 句柄标题, #MAX_PATH)<br />
        .判断开始 (句柄所属进程ID ≠ 0 且 类名_ ≠ 字符 (0) 且 标题_ ≠ 字符 (0))<br />
            .如果真 (句柄所属进程ID ＝ 进程ID_ 且 句柄类名 ＝ 类名_ 且 句柄标题 ＝ 标题_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .判断 (句柄所属进程ID ≠ 0 且 类名_ ≠ 字符 (0) 且 标题_ ＝ 字符 (0))<br />
<br />
            .如果真 (句柄所属进程ID ＝ 进程ID_ 且 句柄类名 ＝ 类名_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .判断 (句柄所属进程ID ≠ 0 且 类名_ ＝ 字符 (0) 且 标题_ ≠ 字符 (0))<br />
            .如果真 (句柄所属进程ID ＝ 进程ID_ 且 句柄标题 ＝ 标题_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .判断 (句柄所属进程ID ＝ 0 且 类名_ ≠ 字符 (0) 且 标题_ ≠ 字符 (0))<br />
            .如果真 (句柄类名 ＝ 类名_ 且 句柄标题 ＝ 标题_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .判断 (句柄所属进程ID ＝ 0 且 类名_ ＝ 字符 (0) 且 标题_ ≠ 字符 (0))<br />
            .如果真 (句柄标题 ＝ 标题_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .判断 (句柄所属进程ID ＝ 0 且 类名_ ≠ 字符 (0) 且 标题_ ＝ 字符 (0))<br />
            .如果真 (句柄类名 ＝ 类名_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .判断 (句柄所属进程ID ≠ 0 且 类名_ ＝ 字符 (0) 且 标题_ ＝ 字符 (0))<br />
            .如果真 (句柄所属进程ID ＝ 进程ID_)<br />
                .判断开始 (完全查找_)<br />
                    加入成员 (结果数组_, 子句柄)<br />
                .默认<br />
                    返回 (子句柄)<br />
                .判断结束<br />
<br />
            .如果真结束<br />
<br />
        .默认<br />
<br />
        .判断结束<br />
        子句柄 ＝ GetWindow (子句柄, #GW_HWNDNEXT)<br />
    .判断循环尾 ()<br />
.如果真结束<br />
返回 (取数组成员数 (结果数组_))