显示\隐藏系统文件及扩展名

为什么80%的码农都做不了架构师？>>>   

往右键中添加"显示\隐藏系统文件及扩展名",是不是觉得很有趣，呵呵，这样就不用总是用手去调啦，一次搞定，永久受益

注：如果贴到记事本上运行的时候报错的话不是代码的问题，是注册表的键值那些行太长啦，写到记事本上的时候可能就换了行了，把那儿改改就可以啦！
 

Dim WshSHell,FSO   On Error Resume Next   Set WshSHell = WScript.CreateObject("WScript.Shell")   Set FSO = CreateObject("Scripting.FileSystemObject")   Set WinVer = WshSHell.Environment("Process")   Set Args = WScript.Arguments   CloseTime = 5  FileName = WScript.ScriptName   FileFullName = WScript.ScriptFullName   FilePath = FSO.GetParentFolderName(FileFullName)   InsPath = FSO.GetSpecialFolder(1)   InsFullName = FSO.BuildPath(InsPath ,FileName)   Copyright="icyheart"  InsTitle="显示/隐藏系统文件及扩展名"  InsAnswer="显示/隐藏系统文件及扩展名"  RegPath1="HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\SuperHidden\"  RegValue1="{00000000-0000-0000-0000-000000000012}"  RegForm1="REG_SZ"  RegPath2="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\InProcServer32\"  RegValue2="%SystemRoot%\system32\shdocvw.dll"  RegForm2="REG_EXPAND_SZ"  RegPath3="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\InProcServer32\ThreadingModel"  RegValue3="Apartment"  RegForm3="REG_SZ"  RegPath4="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\CLSID"  RegValue4="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}"  RegForm4="REG_SZ"  RegPath5="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\CLSID"  RegValue5="{13709620-C279-11CE-A49E-444553540000}"  RegForm5="REG_SZ"  RegPath6="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\method"  RegValue6="ShellExecute"  RegForm6="REG_SZ"  RegPath7="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\Param1"  RegValue7 = FileName  RegForm7="REG_SZ"  RegPath8="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\"  RegPath9="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\"  RegPath10="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\"  RegPath11="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command"  IF FileFullName <> InsFullName then       intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)       If intAnswer = vbYes Then           WshSHell.RegWrite RegPath1,RegValue1,RegForm1           WshSHell.RegWrite RegPath2,RegValue2,RegForm2           WshSHell.RegWrite RegPath3,RegValue3,RegForm3           WshSHell.RegWrite RegPath4,RegValue4,RegForm4           WshSHell.RegWrite RegPath5,RegValue5,RegForm5           WshSHell.RegWrite RegPath6,RegValue6,RegForm6           WshSHell.RegWrite RegPath7,RegValue7,RegForm7           if WshSHell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then               WshSHell.RegWrite RegPath11, "隐藏系统文件及扩展名", "REG_SZ"           else               WshSHell.RegWrite RegPath11, "显示系统文件及扩展名", "REG_SZ"           end if           FSO.GetFile(FileFullName).Copy(InsFullName)           WshSHell.popup _           "添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _           "添加注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _           chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)_           , CloseTime, "安装成功 - "+ InsTitle, 0 + 64       end if       If intAnswer = vbNo Then           WshSHell.RegDelete RegPath11           WshSHell.RegDelete RegPath7           WshSHell.RegDelete RegPath6           WshSHell.RegDelete RegPath5           WshSHell.RegDelete RegPath9           WshSHell.RegDelete RegPath8           WshSHell.RegDelete RegPath3           WshSHell.RegDelete RegPath2           WshSHell.RegDelete RegPath10           WshSHell.RegDelete RegPath1           FSO.DeleteFile InsFullName           WshSHell.popup _           "删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _           "删除注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _           chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)_           , CloseTime, "卸载成功 - "+ InsTitle , 0 + 64       end if       If intAnswer = vbCancel Then       end if   ELSE       WshSHell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue", "1", "REG_DWORD"       if WshSHell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"           WshSHell.RegWrite RegPath11, "显示系统文件及扩展名", "REG_SZ"           WshSHell.SendKeys "{F5}+{F10}e"       else           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"           WshSHell.RegWrite RegPath11, "隐藏系统文件及扩展名", "REG_SZ"           WshSHell.SendKeys "{F5}+{F10}e"       end if   END IF   Set WshSHell = Nothing  Set FSO = Nothing  Set Args = Nothing  WScript.Quit(0) 

---------------------------------------------------------------------------------------------------------------------
如果大家想分开用的话也行：

显示\隐藏文件扩展名：

 

set wshshell=wscript.createobject("wscript.shell")   RegPath="HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command"  if WshSHell.Regread ("HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue")=1 then       if WshSHell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"          WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"          WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"          WshSHell.RegWrite RegPath, "显示文件扩展名", "REG_SZ"                 else           WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"          WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"          WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"          WshSHell.RegWrite RegPath, "隐藏文件扩展名", "REG_SZ"          end if   END IF 

显示\隐藏系统文件：

 

Dim WSHShell   Set WSHShell = WScript.CreateObject("WScript.Shell")     if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then     WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"  WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "显示系统文件", "REG_SZ"  WshShell.SendKeys "{F5}+{F10}e"    else     WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"  WshShell.RegWrite "HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "隐藏系统文件", "REG_SZ"  WshShell.SendKeys "{F5}+{F10}e"    end if   Set WSHShell = Nothing  WScript.Quit(0) 

 

本文出自 “乔磊的博客 学习 进步” 博客，请务必保留此出处http://sucre.blog.51cto.com/1084905/394561

转载于:https://my.oschina.net/sucre/blog/296343