关于:"如果快速显示/隐藏"隐藏文件" " 能设计成一个热键切换吗? - hoekey吧

level 1

cgx5871 楼主

有时候电脑太多的快捷键自己都不记得了能设成同一个快捷键切换吗? 包括其他类似的只有两个选项的功能比如"WIN+]" 就是切换显示或不显示

2009年02月16日 18点02分 1

level 0

116.228.193.*

用superhidden就可以了。

2010年04月28日 08点04分 2

level 1

hybwan

想了解这个功能，不知道如何使用，还请说得详细些，谢谢。。

2011年01月12日 06点01分 3

level 1

hyhoekey

用vbs读写注册表，详见
http://hi.baidu.com/hyhoekey/blog/item/eb8cfc7bc619851a28388acc.html

2011年02月05日 14点02分 4

level 1

tukoo

~-=Run|wscript.exe plugin\HiddenShow.vbs    ;[显示/隐藏隐藏文件]
   =Keys|\zE|500        ;[右键刷新]
HiddenShow.vbs放在Hoekey目录下的plugin目录中
内容如下
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
end if
Set WSHShell = Nothing
WScript.Quit(0)
我这还有另一个一键显示文件扩展名的HideFileExt.VBS
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 1 then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"
else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
end if
Set WSHShell = Nothing
WScript.Quit(0)
用HOEKEY调用，
~+=Run|wscript.exe plugin\HideFileExt.vbs   ;[显示/隐藏扩展名]
   =Keys|\zE|500        ;[右键刷新]

2011年03月03日 08点03分 5