admin 管理员组

文章数量: 1184232

缺点：要手刷新一下，才能看到效果

XP

隐藏和显示：文件 

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden")=1Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 0,"REG_DWORD"
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" Else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1,"REG_DWORD"
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" EndIfSet WSHShell =Nothing
WScript.Quit (0)

显示和隐藏：扩展名 

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt")=1Then
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 0,"REG_DWORD"
wscript.sleep3000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" 'WshShell.SendKeys "{F5}"Else
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", 1,"REG_DWORD"
wscript.sleep3000
WshShell.Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters")'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" 'WshShell.SendKeys "{F5}"EndIfSet WSHShell =Nothing
WScript.Quit (0)

WIN10

隐藏和显示：文件 

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
keyName = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
keyType ="REG_DWORD"If WSHShell.RegRead(keyName)=2Then
	WSHShell.RegWrite keyName,1, keyType
	'msgbox"显示扩展名,右键刷新一下就可以看到了!",,"扩展名隐现提示" Else
	WSHShell.RegWrite keyName,2, keyType
	'msgbox"隐藏扩展名,右键刷新一下就可以隐藏了!",,"扩展名隐现提示" EndIf
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL, UpdatePerUserSystemParameters")Set WSHShell =Nothing
WScript.Quit (0)

显示和隐藏：扩展名 

Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
keyName = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
keyType ="REG_DWORD"If WSHShell.RegRead(keyName)=0Then
	WSHShell.RegWrite keyName,1, keyType
Else
	WSHShell.RegWrite keyName,0, keyType
EndIf
wscript.sleep1000
WshShell.Run("RunDll32.exe USER32.DLL, UpdatePerUserSystemParameters")Set WSHShell =Nothing
WScript.Quit (0)

参考资料

本文标签： 右键刷新 扩展名隐 一下就可

版权声明：本文标题：轻松一招：揭秘你的硬盘：显示所有被忽略的SWF文件与隐藏的扩展名 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1770967617a3539610.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。