弹窗卫士/弹窗屏蔽器课件源码

.版本 2
.支持库 EThread
.支持库 spec
.支持库 iext

.程序集 窗口程序集_窗口1
.程序集变量 拦截窗口, 窗口规则, , "0"
.程序集变量 拦截次数, 整数型
.程序集变量 许可证, 整数型

.子程序 _窗口1_创建完毕

许可证 ＝ 创建进入许可证 ()
启动线程 (&处理子程序, , )

.子程序 _按钮_添加_被单击
.局部变量 当前数组索引, 整数型

进入许可区 (许可证)
当前数组索引 ＝ 取数组成员数 (拦截窗口) ＋ 1
重定义数组 (拦截窗口, 真, 当前数组索引)
拦截窗口 [当前数组索引].标题 ＝ 编辑框_标题.内容
拦截窗口 [当前数组索引].类名 ＝ 编辑框_类名.内容
拦截窗口 [当前数组索引].宽 ＝ 到整数 (编辑框_宽.内容)
拦截窗口 [当前数组索引].高 ＝ 到整数 (编辑框_高.内容)
拦截窗口 [当前数组索引].是否大小 ＝ 选择框_是否大小.选中
调试输出 (拦截窗口 [当前数组索引].标题, 拦截窗口 [当前数组索引].类名, 拦截窗口 [当前数组索引].宽, 拦截窗口 [当前数组索引].高, 拦截窗口 [当前数组索引].是否大小)
退出许可区 (许可证)

.子程序 处理子程序
.局部变量 循环次数, 整数型
.局部变量 句柄数组, 整数型, , "0"
.局部变量 循环次数1, 整数型
.局部变量 矩形, 精易_矩形

.判断循环首 (真)
    .计次循环首 (取数组成员数 (拦截窗口), 循环次数)
        窗口_模糊遍历窗口 (, 拦截窗口 [循环次数].类名, 拦截窗口 [循环次数].标题, 句柄数组)
        .如果真 (取数组成员数 (句柄数组) ＞ 0)
            .计次循环首 (取数组成员数 (句柄数组), 循环次数1)
                .如果 (拦截窗口 [循环次数].是否大小 ＝ 真)
                    矩形 ＝ 窗口_取位置和大小 (句柄数组 [循环次数1])
                    .如果真 (矩形.右边 ＝ 拦截窗口 [循环次数].宽 且 矩形.底边 ＝ 拦截窗口 [循环次数].高)
                        窗口_关闭 (句柄数组 [循环次数1])
                        拦截次数 ＝ 拦截次数 ＋ 1
                        显示_拦截次数.标题 ＝ 到文本 (拦截次数)
                    .如果真结束
                    系统_处理事件 ()
                .否则
                    窗口_关闭 (句柄数组 [循环次数1])
                    拦截次数 ＝ 拦截次数 ＋ 1
                    显示_拦截次数.标题 ＝ 到文本 (拦截次数)
                .如果结束
                系统_处理事件 ()
            .计次循环尾 ()
        .如果真结束
        程序_延时 (50)
        系统_处理事件 ()
    .计次循环尾 ()
    程序_延时 (110)
    系统_处理事件 ()
.判断循环尾 ()

@阿杰大大