右鍵顯示(隱藏)擴展名的bat代碼

2020-06-09 14:19:49

字體：大中小

供稿：網(wǎng)友

“顯示/隱藏系統(tǒng)文件”需右鍵單擊任意文件夾或文件才能顯示菜單
“顯示/隱藏擴展名”需右鍵單擊任意文件夾里的空白處才能顯示菜單

右鍵顯示(隱藏)擴展名及系統(tǒng)文件.bat
復(fù)制代碼代碼如下:

@echo off
reg delete "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}" /f >nul 2>nul
reg delete "HKLM/SOFTWARE/Classes/*/shell/DisplayFileExt" /f >nul 2>nul
reg delete "HKLM/SOFTWARE/Classes/Folder/shell/DisplayFileExt" /f >nul 2>nul
del /f /q "%windir%/SuperHidden.vbs" "%windir%/SuperHidden1.vbs" >nul 2>nul
>"%windir%/SuperHidden.vbs" echo Dim WSHShell
>>"%windir%/SuperHidden.vbs" echo Set WSHShell = WScript.CreateObject("WScript.Shell")
>>"%windir%/SuperHidden.vbs" echo if WSHShell.RegRead("HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt") = 0 then
>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt", "1", "REG_DWORD"
>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/command", "顯示擴展名", "REG_SZ"
>>"%windir%/SuperHidden.vbs" echo WSHShell.SendKeys "{F5}+{F10}e"
>>"%windir%/SuperHidden.vbs" echo else
>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt", "0", "REG_DWORD"
>>"%windir%/SuperHidden.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/command", "隱藏擴展名", "REG_SZ"
>>"%windir%/SuperHidden.vbs" echo WSHShell.SendKeys "{F5}+{F10}e"
>>"%windir%/SuperHidden.vbs" echo end if
>>"%windir%/SuperHidden.vbs" echo Set WSHShell = Nothing
>>"%windir%/SuperHidden.vbs" echo WScript.Quit(0)
>"%windir%/SuperHidden1.vbs" echo Dim WSHShell
>>"%windir%/SuperHidden1.vbs" echo Set WSHShell = WScript.CreateObject("WScript.Shell")
>>"%windir%/SuperHidden1.vbs" echo sTitle1 = "SSH=0"
>>"%windir%/SuperHidden1.vbs" echo sTitle2 = "SSH=1"
>>"%windir%/SuperHidden1.vbs" echo if WSHShell.RegRead("HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/ShowSuperHidden") = 1 then
>>"%windir%/SuperHidden1.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/ShowSuperHidden", "0", "REG_DWORD"
>>"%windir%/SuperHidden1.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden", "2", "REG_DWORD"
>>"%windir%/SuperHidden1.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/command", "顯示擴展名", "REG_SZ"
>>"%windir%/SuperHidden1.vbs" echo WSHShell.SendKeys "{F5}+{F10}e"
>>"%windir%/SuperHidden1.vbs" echo 'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation
>>"%windir%/SuperHidden1.vbs" echo else
>>"%windir%/SuperHidden1.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/ShowSuperHidden", "1", "REG_DWORD"
>>"%windir%/SuperHidden1.vbs" echo WSHShell.RegWrite "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden", "1", "REG_DWORD"
>>"%windir%/SuperHidden1.vbs" echo WSHShell.RegWrite "HKCR/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag/command", "顯示擴展名", "REG_SZ"
>>"%windir%/SuperHidden1.vbs" echo WSHShell.SendKeys "{F5}+{F10}e"
>>"%windir%/SuperHidden1.vbs" echo 'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation
>>"%windir%/SuperHidden1.vbs" echo end if
>>"%windir%/SuperHidden1.vbs" echo Set WSHShell = Nothing
>>"%windir%/SuperHidden1.vbs" echo WScript.Quit(0)
reg export "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced" "%temp%/__.reg" >nul
for /f "tokens=2 delims==" %%. in ('find/i "HideFileExt" "%temp%/__.reg"') do set v=%%~.
del "%temp%/__.reg"
set v=%v:~-1%
if %v% equ 0 set vv=隱藏擴展名
if %v% equ 1 set vv=顯示擴展名
>"%temp%/_.reg" echo REGEDIT4
>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/Directory/Background/shellex/ContextMenuHandlers/SuperHidden]
>>"%temp%/_.reg" echo @="{00000000-0000-0000-0000-000000000012}"
>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/CLSID/{00000000-0000-0000-0000-000000000012}/InProcServer32]
>>"%temp%/_.reg" echo @=hex(2):25,53,79,73,74,65,6d,52,6f,6f,74,25,5c,73,79,73,74,65,6d,33,32,5c,73,/
>>"%temp%/_.reg" echo 68,64,6f,63,76,77,2e,64,6c,6c,00
>>"%temp%/_.reg" echo "ThreadingModel"="Apartment"
>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/CLSID/{00000000-0000-0000-0000-000000000012}/Instance]
>>"%temp%/_.reg" echo "CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}"
>>"%temp%/_.reg" echo [HKEY_CLASSES_ROOT/CLSID/{00000000-0000-0000-0000-000000000012}/Instance/InitPropertyBag]
>>"%temp%/_.reg" echo "method"="ShellExecute"
>>"%temp%/_.reg" echo "Param1"="SuperHidden.vbs"
>>"%temp%/_.reg" echo "CLSID"="{13709620-C279-11CE-A49E-444553540000}"
>>"%temp%/_.reg" echo "command"="%vv%"
>>"%temp%/_.reg" echo [HKEY_LOCAL_MACHINE/SOFTWARE/Classes/*/shell/DisplayFileExt]
>>"%temp%/_.reg" echo @="顯示/隱藏系統(tǒng)文件"
>>"%temp%/_.reg" echo [HKEY_LOCAL_MACHINE/SOFTWARE/Classes/*/shell/DisplayFileExt/Command]
>>"%temp%/_.reg" echo @="WScript.exe C://Windows//SuperHidden1.vbs"
>>"%temp%/_.reg" echo [HKEY_LOCAL_MACHINE/SOFTWARE/Classes/Folder/shell/DisplayFileExt]
>>"%temp%/_.reg" echo @="顯示/隱藏系統(tǒng)文件"
>>"%temp%/_.reg" echo [HKEY_LOCAL_MACHINE/SOFTWARE/Classes/Folder/shell/DisplayFileExt/Command]
>>"%temp%/_.reg" echo @="WScript.exe C://Windows//SuperHidden1.vbs"
regedit /s "%temp%/_.reg"
del /f /q "%temp%/_.reg"
exit

上一篇：cmd findstr 字符串查找增強使用說明

下一篇：奧汀管理員不切換bat腳本 V1.0-Design by Adobo

發(fā)表評論

共有條評論