显示文件后缀名和隐藏文件的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)

 

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

发表评论

电子邮件地址不会被公开。 必填项已用*标注

您必须启用javascript在这里看到验证码!