遍历窗口控件判断内容被改变

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 窗口控件, 控件数据类型, , "0"

.子程序 __启动窗口_创建完毕

初始控件子程序 ()

.子程序 初始控件子程序
.局部变量 i
.局部变量 句柄, 整数型, , "0"
.局部变量 控件数据, 控件数据类型

调试输出 (1, 窗口_枚举所有子窗口 (取窗口句柄 (), 句柄))
清除数组 (窗口控件)
.计次循环首 (取数组成员数 (句柄), i)
    .如果 (判断控件类型_子程序 (窗口_取类名 (句柄 [i])))
        控件数据.句柄 ＝ 句柄 [i]
        控件数据.内容 ＝ 窗口_取控件内容 (句柄 [i])
        调试输出 (2, 句柄 [i], 窗口_取控件内容 (句柄 [i]))
        加入成员 (窗口控件, 控件数据)
    .否则

    .如果结束

.计次循环尾 ()

.子程序 判断控件类型_子程序, 逻辑型
.参数 lx, 文本型

.判断开始 (lx ＝ “_EL_Label”)
    返回 (假)
.默认

.判断结束
.判断开始 (lx ＝ “Button”)
    返回 (假)
.默认

.判断结束
返回 (真)

.子程序 判断控件内容修改_子程序, 逻辑型
.局部变量 i
.局部变量 kjjb, 整数型, , "0"
.局部变量 kjsz, 控件数据类型, , "0"
.局部变量 kj, 控件数据类型

窗口_枚举所有子窗口 (取窗口句柄 (), kjjb)
.计次循环首 (取数组成员数 (kjjb), i)
    .如果 (判断控件类型_子程序 (窗口_取类名 (kjjb [i])))
        kj.句柄 ＝ kjjb [i]
        kj.内容 ＝ 窗口_取控件内容 (kjjb [i])
        加入成员 (kjsz, kj)
    .否则

    .如果结束

.计次循环尾 ()
i ＝ 1
.计次循环首 (取数组成员数 (窗口控件), i)
    .如果 (窗口控件 [i].句柄 ＝ kjsz [i].句柄 且 窗口控件 [i].内容 ≠ kjsz [i].内容)
        调试输出 (3, kjsz [i].句柄, 窗口控件 [i].内容, kjsz [i].内容)
        返回 (真)
        跳出循环 ()

    .否则

    .如果结束

.计次循环尾 ()
返回 (假)

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

调试输出 (判断控件内容修改_子程序 ())

@zas