时间：2022-09-05 11:11:47
TAG： VBS、优化大师、找回、隐藏、分区|技巧| 应用
我是一名中专一年级学生，买CFan虽然只有两年半时间，但已经看过5年的杂志了：）（2002～2005年的杂志是向我姐的朋友的朋友借的）是CFan把我变成一只大鸟的，现在下一个目标就是让我成为老鸟，也希望CFan越办越好．
2007年第24期的《打招VBS版的系统“优化大师”》给我们讲了如何利用VBS文件隐藏磁盘分区，但就没有讲如何找回被隐藏的分区。其实很简单，打开记事本，输入以下内容：
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoDrives"=dword:2000000
将上面的文件保存为REG文件即可。另外，要隐藏双盘或多盘也没问题，在代码中找到“Else”，在“Else”与上面一段隔开一行，插入如下代码（//后文字为程序说明）：
If XuanZe="cd" Then //定义当你隐藏C,D时要输入的选项cd
Dim CD
Set CD=CreateObject("WScript.Shell")CD.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives","00000014","REG_DWORD"
Elseif XuanZe="ce" Then //定义当你隐藏C,E时要输入的选项ce
Dim CE
Set CE=CreateObject("WScript.Shell")
CE.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives","00000020","REG_DWORD"
Elseif XuanZe="de" Then //定义当你隐藏D,E时要输入的选项de
Dim DE
Set DE=CreateObject("WScript.Shell")
DE.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives","00000024","REG_DWORD"
Elseif XuanZe="cde" Then //定义当你隐藏C,D,E时要输入的选项cde
Dim CDE
Set CDE=CreateObject("WScript.Shell")
CDE.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives","00000028","REG_DWORD"
上面是对CD，CE，DE，CDE的隐藏，保存即可。本文所用代码下载地址“/cfan/200805/daima.rar”。
推荐度：
文章类型：原文拓展
小编手记：被隐藏的分区恢复后可能出现限制错误（如图），只要把盘符修改即可：右击“我的电脑”后点击“管理磁盘管理”选择出错的盘符，右击选择“更改驱动器名和路径”，在弹出的对话框中选择“更改”，把它改为其他盘符即可。
额外奖: 30元