步枪一号
发表于 2012-11-10 13:33
这个非常不错,一定要支持
ddianxing
发表于 2012-11-16 16:22
32-Bit下也是有效滴!哈哈……
summerajie
发表于 2012-11-18 12:41
回去试试~感谢分享啊!
luanbj580
发表于 2012-11-20 19:51
很好,成功。
froyo2
发表于 2012-11-22 12:05
看帖必回
adadamam
发表于 2012-11-22 12:19
虽然Windows8下切换其实很方便了,还是支持一下。
yinlaitian
发表于 2012-11-22 12:29
我也来试试这个 不错
ryf21
发表于 2012-11-24 14:58
高手顶一个
惘清
发表于 2012-11-24 17:57
谢谢,不错。。。{:5_266:}
风舞竹动
发表于 2012-12-2 22:03
要试试,非常感谢
第①时尚
发表于 2012-12-3 00:19
谢谢啦,下来试试!
goodfrom
发表于 2012-12-12 20:13
想要这个呢
abcmini
发表于 2012-12-16 00:43
看介绍非常不错,试试看
wsdyleon
发表于 2012-12-16 10:35
whyq
发表于 2012-12-17 14:02
{:7_496:}谢谢LZ啊
龙池之水
发表于 2012-12-18 21:13
收藏一下,以后用得着!
陌景暄
发表于 2012-12-18 21:33
技术贴
很强大……
SzqZys
发表于 2012-12-19 08:20
本帖最后由 SzqZys 于 2012-12-19 09:11 编辑
楼主你这个修改的SuperHidden.vbs还是有问题,我是直接下载你做好了的,就是每次显示再隐藏了文件夹后显示文件扩展名也一起隐藏了。以前那个每次运行在Win8下都要打开帮助栏,很麻烦。我试着把我原先从网上下载的SuperHidden.vbs里面的{F10}e删除,结果不会打开帮助栏,也不会再影响扩展名的显示了。这是我这个SuperHidden.vbs
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
sTitle1 = "SSH=0"
sTitle2 = "SSH=1"
if WSHShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.SendKeys "{F5}"
'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation
else
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.SendKeys "{F5}"
'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation
end if
Set WSHShell = Nothing
WScript.Quit(0)
johnnypc
发表于 2012-12-19 10:01
好方法...........谢谢分享!
cnzx219
发表于 2012-12-22 18:33
楼主真是高手。。感谢分享