.版本 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_被单击 调试输出 (判断控件内容修改_子程序 ())