- 积分
- 970
- 最后登录
- 2022-11-26
- 精华
- 0
- 阅读权限
- 40
- 主题
- 231
- UID
- 986545
- 帖子
- 2426
- PB币
- 7716
- 威望
- 0
- 贡献
- 0
- 技术
- 386
- 活跃
- 1128
- UID
- 986545
- 帖子
- 2426
- PB币
- 7716
- 贡献
- 0
- 技术
- 386
- 活跃
- 1128
|
38F
发表于 2012-12-19 08:20:36
IP属地四川
|只看该作者
本帖最后由 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)
|
|