文件夹伪装大师？？

15166665954 · 发表于 2016-6-3 18:06:34

所谓的上帝模式？原理很简单还没玩过的新手参考下吧，勿喷。*给点币*

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

目录_伪装 (“C:\Users\Administrator\Desktop\新建文件夹”, #常量_回收站 )

子程序名	返回值类型	公开	备注
目录_伪装	逻辑型
参数名	类型	参考	可空	数组	备注
目录路径	文本型
类型	文本型				参考"#常量"

如果真 (取文本右边 (目录路径, 1) ＝ “\”)

目录路径＝取文本左边 (目录路径, 取文本长度 (目录路径) － 1)
返回 (文件更名 (目录路径, 取文本左边 (目录路径, 倒找文本 (目录路径, “\”, , 假)) ＋类型))
' excel.{00020810-0000-0000-C000-000000000046}
' word.{00020900-0000-0000-C000-000000000046}
' media.{00022603-0000-0000-C000-000000000046}
' CAB.{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}
' 计划任务.{148BD520-A2AB-11CE-B11F-00AA00530503}
' 网上邻居.{208D2C60-3AEA-1069-A2D7-08002B30309D}
' 我的电脑.{20D04FE0-3AEA-1069-A2D8-08002B30309D}
' 控制面板.{ED7BA470-8E54-465E-825C-99712043E01C}
' 打印机.{2227A280-3AEA-1069-A2DE-08002B30309D}
' html.{25336920-03f9-11cf-8fd0-00aa00686f13}
' mshta.{3050f4d8-98B5-11CF-BB82-00AA00BDCE0B}
' 我的文档.{450D8FBA-AD25-11D0-98A8-0800361B1103}
' XML.{48123bc4-99d9-11d1-a6b3-00c04fd91555}
' 回收站(满).{5ef4af3a-f726-11d0-b8a2-00c04fc309a4}
' 回收站.{645FF040-5081-101B-9F08-00AA002F954E}
' ftp_folder.{63da6ec0-2e98-11cf-8d82-444553540000}
' 网络和拨号连接.{7007ACC7-3202-11D1-AAD2-00805FC1270E}
' 写字板文档.{73FDDC80-AEA9-101A-98A7-00AA00374959}
' Internet 临时文件.{7BD29E00-76C1-11CF-9DD0-00A0C9034933}
' mail.{9E56BE60-C50F-11CF-9A2C-00A0C90A90CE}
' 历史记录.{FF393560-C2A7-11CF-BFF4-444553540000}
' 预订文件夹.{F5175861-2688-11d0-9C5E-00AA00A45957}
' MyDocs Drop Target.{ECF03A32-103D-11d2-854D-006008059367}
' 管理工具.{D20EA4E1-3957-11d2-A40B-0C5020524153}
' 脱机文件夹.{AFDB1F70-2A4C-11d2-9039-00C04F8EEB3E}
' 打印机.{2227A280-3AEA-1069-A2DE-08002B30309D}

.版本 2<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
目录_伪装 (“C:\Users\Administrator\Desktop\新建文件夹”, #常量_回收站)<br />
<br />
.子程序 目录_伪装, 逻辑型, 公开<br />
.参数 目录路径, 文本型<br />
.参数 类型, 文本型, , 参考"#常量"<br />
<br />
.如果真 (取文本右边 (目录路径, 1) ＝ “\”)<br />
    目录路径 ＝ 取文本左边 (目录路径, 取文本长度 (目录路径) － 1)<br />
.如果真结束<br />
返回 (文件更名 (目录路径, 取文本左边 (目录路径, 倒找文本 (目录路径, “\”, , 假)) ＋ 类型))<br />
<br />
' excel.{00020810-0000-0000-C000-000000000046}<br />
' word.{00020900-0000-0000-C000-000000000046}<br />
' media.{00022603-0000-0000-C000-000000000046}<br />
' CAB.{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}<br />
' 计划任务.{148BD520-A2AB-11CE-B11F-00AA00530503}<br />
' 网上邻居.{208D2C60-3AEA-1069-A2D7-08002B30309D}<br />
' 我的电脑.{20D04FE0-3AEA-1069-A2D8-08002B30309D}<br />
' 控制面板.{ED7BA470-8E54-465E-825C-99712043E01C}<br />
' 打印机.{2227A280-3AEA-1069-A2DE-08002B30309D}<br />
' html.{25336920-03f9-11cf-8fd0-00aa00686f13}<br />
' mshta.{3050f4d8-98B5-11CF-BB82-00AA00BDCE0B}<br />
' 我的文档.{450D8FBA-AD25-11D0-98A8-0800361B1103}<br />
' XML.{48123bc4-99d9-11d1-a6b3-00c04fd91555}<br />
' 回收站(满).{5ef4af3a-f726-11d0-b8a2-00c04fc309a4}<br />
' 回收站.{645FF040-5081-101B-9F08-00AA002F954E}<br />
' ftp_folder.{63da6ec0-2e98-11cf-8d82-444553540000}<br />
' 网络和拨号连接.{7007ACC7-3202-11D1-AAD2-00805FC1270E}<br />
' 写字板文档.{73FDDC80-AEA9-101A-98A7-00AA00374959}<br />
' Internet 临时文件.{7BD29E00-76C1-11CF-9DD0-00A0C9034933}<br />
' mail.{9E56BE60-C50F-11CF-9A2C-00A0C90A90CE}<br />
' 历史记录.{FF393560-C2A7-11CF-BFF4-444553540000}<br />
' 预订文件夹.{F5175861-2688-11d0-9C5E-00AA00A45957}<br />
' MyDocs Drop Target.{ECF03A32-103D-11d2-854D-006008059367}<br />
' 管理工具.{D20EA4E1-3957-11d2-A40B-0C5020524153}<br />
' 脱机文件夹.{AFDB1F70-2A4C-11d2-9039-00C04F8EEB3E}<br />
' 打印机.{2227A280-3AEA-1069-A2DE-08002B30309D}