hidefile.vbs编辑

Dim WSHShellSet WSHShell = WScript.CreateObject("WScript.Shell")sTitle1 = "SSH=0"sTitle2 = "SSH=1"If WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 Then'读取注册表中的键值，如果已经隐藏则写入注册表使其显示，然后歼握刷新枣改伏 WSHShell.RegWrite "HKCU\凳携Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD" WSHShell.SendKeys "{F5}+{F10}e"Else'读取注册表中的键值，如果已经显示则写入注册表使其隐藏，然后刷新 WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD" WSHShell.SendKeys "{F5}+{F10}e"End IfSet WSHShell = NothingWScript.Quit (0)