.版本 2 .支持库 iext .支持库 iext5 .程序集 窗口程序集_启动窗口 .程序集变量 FilePath, 文本型 .程序集变量 ToPath, 文本型 .子程序 __启动窗口_创建完毕 状态条1.置文本 (0, 目录框_路径.目录) 组合框_伪装样式.现行选中项 ＝ 0 信息提示 () .子程序 _目录框_路径_目录被改变 状态条1.置文本 (0, 目录框_路径.目录) FilePath ＝ 目录框_路径.目录 .子程序 _驱动器框_选择分区_驱动器被改变 目录框_路径.目录 ＝ 驱动器框_选择分区.驱动器 ＋ “:\” .子程序 _按钮_伪装_被单击 .如果 (组合框_伪装样式.现行选中项 ＜ 0) 信息框 (“对文件夹的伪装保护出错!请重试”, #错误图标, “文件夹保护出错”) .否则 .判断开始 (组合框_伪装样式.现行选中项 ＝ 0) ToPath ＝ FilePath ＋ #控制面板 .判断 (组合框_伪装样式.现行选中项 ＝ 1) ToPath ＝ FilePath ＋ #打印机 .判断 (组合框_伪装样式.现行选中项 ＝ 2) ToPath ＝ FilePath ＋ #回收站 .判断 (组合框_伪装样式.现行选中项 ＝ 3) ToPath ＝ FilePath ＋ #网页 .判断 (组合框_伪装样式.现行选中项 ＝ 4) ToPath ＝ FilePath ＋ #IE .判断 (组合框_伪装样式.现行选中项 ＝ 5) ToPath ＝ FilePath ＋ #网上邻居 .判断 (组合框_伪装样式.现行选中项 ＝ 6) ToPath ＝ FilePath ＋ #拨号网络 .判断 (组合框_伪装样式.现行选中项 ＝ 7) ToPath ＝ FilePath ＋ #计划任务 .判断 (组合框_伪装样式.现行选中项 ＝ 8) ToPath ＝ FilePath ＋ #临时文件 .默认 .判断结束 写到文件 (“c:\wzwj.bat”, 到字节集 (“move/y ” ＋ FilePath ＋ “ ” ＋ ToPath ＋ #换行符 ＋ “del %0”)) 运行 (“c:\wzwj.bat”, 假, #隐藏窗口) 信息框 (“恭喜你!文件夹伪装保护成功”, 64, “保护成功”, ) .如果结束 .子程序 _按钮_解除_被单击 .如果真 (取文本右边 (FilePath, 39) ＝ #控制面板 或 取文本右边 (FilePath, 39) ＝ #打印机 或 取文本右边 (FilePath, 39) ＝ #回收站 或 取文本右边 (FilePath, 39) ＝ #网页 或 取文本右边 (FilePath, 39) ＝ #IE 或 取文本右边 (FilePath, 39) ＝ #网上邻居 或 取文本右边 (FilePath, 39) ＝ #拨号网络 或 取文本右边 (FilePath, 39) ＝ #计划任务 或 取文本右边 (FilePath, 39) ＝ #临时文件) ToPath ＝ 取文本左边 (FilePath, 取文本长度 (FilePath) － 39) 写到文件 (“c:\jcwz.bat”, 到字节集 (“move/y ” ＋ FilePath ＋ “ ” ＋ ToPath ＋ #换行符 ＋ “del %0”)) 运行 (“c:\jcwz.bat”, 假, #隐藏窗口) 信息框 (“恭喜你!文件夹解除保护成功”, 64, “解除保护成功”) 返回 () .如果真结束 信息框 (“文件夹解除保护出错!请重试”, #错误图标, “解除保护出错”) .子程序 _按钮_退出_被单击 播放音乐 (#关闭, ) 关闭程序 () .子程序 __启动窗口_可否被关闭, 逻辑型 播放音乐 (#关闭, ) 关闭程序 () .子程序 _按钮_关于_被单击 载入 (窗口_关于, , 真) .子程序 信息提示 信息提示框.关联组件 (组合框_伪装样式, “选择你想要伪装的系统文件样式”, -1, , , , ) 信息提示框.关联组件 (按钮_伪装, “开始对文件夹进行伪装保护”, -1, , , , ) 信息提示框.关联组件 (按钮_解除, “解除对文件夹的伪装保护”, -1, , , , ) 信息提示框.关联组件 (按钮_关于, “关于作者”, -1, , , , ) 信息提示框.关联组件 (按钮_退出, “退出”, -1, , , , ) 信息提示框.关联组件 (目录框_路径, “选择你要进行伪装的文件夹的路径”, -1, , , , ) 信息提示框.关联组件 (驱动器框_选择分区, “选择当前操作的磁盘”, -1, , , , )