Blog

显示文件后缀名和隐藏文件的vbs脚本

点击查看原图

Dim WSHShell
Set WSHShell = WScript.CreateObject(“WScript.Shell”)
if WSHShell.RegRead(“HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden”) = 1 then
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden”, “0”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden”, “2”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt”, “1”, “REG_DWORD”
WSHShell.SendKeys “{F5}+{F10}e”
else
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden”, “1”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden”, “1”, “REG_DWORD”
WSHShell.RegWrite “HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt”, “0”, “REG_DWORD”
WSHShell.SendKeys “{F5}+{F10}e”
end if
Set WSHShell = Nothing
WScript.Quit(0)

 

下面有我做好的文件下载:

没有评论

Leave a Reply