ShowHidden(右键菜单中添加显示隐藏系统文件及扩展名)下载

weixin_39821746 2020-08-03 11:30:23
右键菜单中添加显示隐藏系统文件及扩展名
右键菜单扩展
程序说明:
可在右键菜单中添加(显示/隐藏系统文件及扩展名)
静默安装参数:/s
相关下载链接://download.csdn.net/download/gsplzjl/7838925?utm_source=bbsseo
...全文
195 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
将"显示隐藏系统文件+扩展名"添加右键菜单,并且可以在开始菜单卸载。 支持Windows 2000/XP/2003/Vista/2008/Win7 均经过本人测试可用。 程序由vbscript编写,由RAR压缩打包,添加注册表项。 附部分代码内容: ============================================ [HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\SuperHidden] @="{00000000-0000-0000-0000-000000000012}" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\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_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance] "CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag] "method"="ShellExecute" "Param1"="SuperHidden.vbs" "command"="显示/隐藏系统文件+扩展名" "CLSID"="{13709620-C279-11CE-A49E-444553540000}" [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced] "ShowSuperHidden"=dword:00000000 "Hidden"=dword:00000002 ============================================ 'Show/Hide System Files Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") sTitle1 = "SSH=0" sTitle2 = "SSH=1" 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 "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "显示系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation 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 "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "隐藏系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation end if Set WSHShell = Nothing WScript.Quit(0)
能将“显示隐藏系统文件+扩展名添加到鼠标右键菜单,并且可以在开始菜单卸载。 程序使用vbscript脚本和修改注册表,支持2000/XP/2003/Vista/2008/Win7,全部经过本人测试,使用完全正常。 附一段注册表字串: REGEDIT4 [HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers\SuperHidden] @="{00000000-0000-0000-0000-000000000012}" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\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_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance] "CLSID"="{3f454f0e-42ae-4d7c-8ea3-328250d6e272}" [HKEY_CLASSES_ROOT\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag] "method"="ShellExecute" "Param1"="SuperHidden.vbs" "command"="显示/隐藏系统文件+扩展名" "CLSID"="{13709620-C279-11CE-A49E-444553540000}" [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced] "ShowSuperHidden"=dword:00000000 "Hidden"=dword:00000002 再附vbscript代码: 'Show/Hide System Files Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") sTitle1 = "SSH=0" sTitle2 = "SSH=1" 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 "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "显示系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation 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 "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "隐藏系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation end if Set WSHShell = Nothing WScript.Quit(0)

12,795

社区成员

发帖
与我相关
我的任务
社区描述
CSDN 下载资源悬赏专区
其他 技术论坛(原bbs)
社区管理员
  • 下载资源悬赏专区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧