.版本 2 .支持库 EThread .支持库 spec .支持库 iext .程序集 窗口程序集_窗口1 .程序集变量 拦截窗口, 窗口规则, , "0" .程序集变量 拦截次数, 整数型 .程序集变量 许可证, 整数型 .子程序 _窗口1_创建完毕 许可证 ＝ 创建进入许可证 () 启动线程 (&处理子程序, , ) .子程序 _按钮_添加_被单击 .局部变量 当前数组索引, 整数型 进入许可区 (许可证) 当前数组索引 ＝ 取数组成员数 (拦截窗口) ＋ 1 重定义数组 (拦截窗口, 真, 当前数组索引) 拦截窗口 [当前数组索引].标题 ＝ 编辑框_标题.内容 拦截窗口 [当前数组索引].类名 ＝ 编辑框_类名.内容 拦截窗口 [当前数组索引].宽 ＝ 到整数 (编辑框_宽.内容) 拦截窗口 [当前数组索引].高 ＝ 到整数 (编辑框_高.内容) 拦截窗口 [当前数组索引].是否大小 ＝ 选择框_是否大小.选中 调试输出 (拦截窗口 [当前数组索引].标题, 拦截窗口 [当前数组索引].类名, 拦截窗口 [当前数组索引].宽, 拦截窗口 [当前数组索引].高, 拦截窗口 [当前数组索引].是否大小) 退出许可区 (许可证) .子程序 处理子程序 .局部变量 循环次数, 整数型 .局部变量 句柄数组, 整数型, , "0" .局部变量 循环次数1, 整数型 .局部变量 矩形, 精易_矩形 .判断循环首 (真) .计次循环首 (取数组成员数 (拦截窗口), 循环次数) 窗口_模糊遍历窗口 (, 拦截窗口 [循环次数].类名, 拦截窗口 [循环次数].标题, 句柄数组) .如果真 (取数组成员数 (句柄数组) ＞ 0) .计次循环首 (取数组成员数 (句柄数组), 循环次数1) .如果 (拦截窗口 [循环次数].是否大小 ＝ 真) 矩形 ＝ 窗口_取位置和大小 (句柄数组 [循环次数1]) .如果真 (矩形.右边 ＝ 拦截窗口 [循环次数].宽 且 矩形.底边 ＝ 拦截窗口 [循环次数].高) 窗口_关闭 (句柄数组 [循环次数1]) 拦截次数 ＝ 拦截次数 ＋ 1 显示_拦截次数.标题 ＝ 到文本 (拦截次数) .如果真结束 系统_处理事件 () .否则 窗口_关闭 (句柄数组 [循环次数1]) 拦截次数 ＝ 拦截次数 ＋ 1 显示_拦截次数.标题 ＝ 到文本 (拦截次数) .如果结束 系统_处理事件 () .计次循环尾 () .如果真结束 程序_延时 (50) 系统_处理事件 () .计次循环尾 () 程序_延时 (110) 系统_处理事件 () .判断循环尾 ()