老板键一键隐藏所有窗口工具源码

.子程序 刷新列表, , , 隐藏只需要窗口句柄,通过进程会好一点,因为隐藏的窗口刷新则会获取不了
.局部变量 窗口列表, 文本型, , "0", Program Manager 开始
.局部变量 进程列表, 进程信息, , "0"
.局部变量 窗口标题, 文本型
.局部变量 x, 整数型
.局部变量 表项, 整数型
.局部变量 进程ID, 整数型
.局部变量 y, 整数型
超级列表框1.全部删除 ()
显示窗口 ()
清除数组 (选择进程)
窗口列表 ＝ 取所有窗口列表 ()
进程列表 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (窗口列表), x)
    .如果真 (到整数 (窗口列表 [x]) ≠ _启动窗口.取窗口句柄 ())  ' 屏蔽自身
        窗口标题 ＝ 取窗口标题 (到整数 (窗口列表 [x]))
    .如果真结束
    .如果真 (取反 (窗口标题 ＝ “” 或 窗口标题 ＝ “开始” 或 窗口标题 ＝ “Program Manager”))  ' WIN7系统下带有的窗口屏蔽掉
        表项 ＝ 超级列表框1.插入表项 (, , , , , )
        超级列表框1.置标题 (表项, 1, 窗口列表 [x])
        超级列表框1.置标题 (表项, 2, 窗口标题)
        句柄取进程ID (到整数 (窗口列表 [x]), 进程ID)
        超级列表框1.置标题 (表项, 4, 到文本 (进程ID))
        .计次循环首 (取数组成员数 (进程列表), y)
            .如果真 (进程列表 [y].进程标识符 ＝ 进程ID)
                超级列表框1.置标题 (表项, 3, 进程列表 [y].进程名称)
            .如果真结束
        .计次循环尾 ()
    .如果真结束
.计次循环尾 ()