admin管理员组文章数量:1531961
2024年1月12日发(作者：)
直接复制过去，会有很严重的格式问题，导致vbs编译不成功,还不如异次元下个软件解决了
一、新建一个文档，输入如下代码并另存为：
REGEDIT4
[HKEY_CLASSES_ROOTDirectoryBackgroundshellexContextMenuHandlersSuperHidden]
@="{00000000-0000-0000-0012}"
[HKEY_CLASSES_ROOTCLSID{00000000-0000-0000-0012}InProcServer32]
@=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,
68,64,6f,63,76,77,2e,64,6c,6c,00
"ThreadingModel"="Apartment"
[HKEY_CLASSES_ROOTCLSID{00000000-0000-0000-0012}Instance]
"CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}"
[HKEY_CLASSES_ROOTCLSID{00000000-0000-0000-0012}InstanceInitPropertyBag]
"method"="ShellExecute"
"Param1"=""
"command"="显示/隐藏系统文件+扩展名"
"CLSID"="{13709620-C279-11CE-A49E-444553540000}"
[HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced]
"ShowSuperHidden"=dword:00000000
"Hidden"=dword:00000002
二、在新建一个文档，输入代码后另存为：
'Show/Hide System Files
Dim WSHShell
Set WSHShell = Object("")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"
if
d("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden") = 1 then
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden", "0", "REG_DWORD"
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "2", "REG_DWORD"
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "1", "REG_DWORD"
te
"HKCRCLSID{00000000-0000-0000-0012}InstanceInitPropertyBagcommand", "显示系统文件+扩展名", "REG_SZ"
ys "{F5}+{F10}e"
' "Poof, they're gone!", 1, sTitle1, vbInformation
else
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden", "1", "REG_DWORD"
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "1", "REG_DWORD"
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "0", "REG_DWORD"
te
"HKCRCLSID{00000000-0000-0000-0012}InstanceInitPropertyBagcommand", "隐藏系统文件+扩展名", "REG_SZ"
ys "{F5}+{F10}e"
' "Here they are!", 1, sTitle2, vbInformation
end if
Set WSHShell = Nothing
(0)
三、将拷贝到C盘windows目录下即可，然后双击修改注册表，最后重启一下电脑就可以了（如果安装的杀毒软件弹出阻止对话框时，请勾上总是允许，并将下方的以后总是允许的勾勾上就可以了）。
鼠标右键添加“显示/隐藏 文件扩展名”
新建一个TXT文本文档，将以下内容复制进去，保存为，放入C:Windows目录下
Dim WSHShell
Set WSHShell = Object("") sTitle1 = "SSH=0" sTitle2 = "SSH=1" if
d("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt") = 0 then
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "1", "REG_DWORD"
ys "{F5}+{F10}e" else
te
"HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "0", "REG_DWORD"
ys "{F5}+{F10}e" end if
Set WSHShell = Nothing (0)
再将以下内容复制到TXT，保存为.reg文件，运行即可
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT*shellDisplayFileExt]
@="显示/隐藏 文件扩展名"
[HKEY_CLASSES_ROOT*shellDisplayFileExtCommand] @=" C:"
[HKEY_CLASSES_ROOTDirectoryBackgroundshellDisplayFileExt] @="显示/隐藏 文件扩展名"
[HKEY_CLASSES_ROOTDirectoryBackgroundshellDisplayFileExtCommand] @=" C:"
[HKEY_CLASSES_ROOTFoldershellDisplayFileExt] @="显示/隐藏 文件扩展名"
[HKEY_CLASSES_ROOTFoldershellDisplayFileExtCommand]
@=" C:"
[HKEY_LOCAL_MACHINESOFTWAREClasses*shellDisplayFileExt] @="显示/隐藏 文件扩展名"
[HKEY_LOCAL_MACHINESOFTWAREClasses*shellDisplayFileExtCommand] @=" C:"
[HKEY_LOCAL_MACHINESOFTWAREClassesDirectoryBackgroundshellDisplayFileExt]
@="显示/隐藏 文件扩展名"
[HKEY_LOCAL_MACHINESOFTWAREClassesDirectoryBackgroundshellDisplayFileExtCommand]
@=" C:"
[HKEY_LOCAL_MACHINESOFTWAREClassesFoldershellDisplayFileExt]
@="显示/隐藏 文件扩展名"
[HKEY_LOCAL_MACHINESOFTWAREClassesFoldershellDisplayFileExtCommand] @=" C:"
版权声明：本文标题：win7右键添加显示隐藏系统文件和文件扩展名 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1705070164a121647.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论