生活随笔
收集整理的這篇文章主要介紹了
显示\隐藏系统文件及扩展名
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
往右鍵中添加"顯示\隱藏系統文件及擴展名",是不是覺得很有趣，呵呵，這樣就不用總是用手去調啦，一次搞定，永久受益
注：如果貼到記事本上運行的時候報錯的話不是代碼的問題，是注冊表的鍵值那些行太長啦，寫到記事本上的時候可能就換了行了，把那兒改改就可以啦！
?
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)??本文轉自sucre03 51CTO博客，原文鏈接：http://blog.51cto.com/sucre/394561，如需轉載請自行聯系原作者
總結
以上是生活随笔為你收集整理的显示\隐藏系统文件及扩展名的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
