右键显示(隐藏)扩展名的bat代码

2020-06-09 14:19:49

字体：大中小

来源：转载

供稿：网友

“显示/隐藏系统文件”需右键单击任意文件夹或文件才能显示菜单
“显示/隐藏扩展名”需右键单击任意文件夹里的空白处才能显示菜单

右键显示(隐藏)扩展名及系统文件.bat
复制代码代码如下:

@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 @="显示/隐藏系统文件"
>>"%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 @="显示/隐藏系统文件"
>>"%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

发表评论

共有条评论