无法找到脚本文件c:\windows\hidefile.vbs
1个回答
展开全部
百度上有
自己在C:\Windows里新建一个文本文档,把下面的东西复制进去,关闭-保存。然后在打开显示文件后缀名。把刚刚建立的“新建文本文档.txt”改成“hidefile.vbs”就可以了。
Dim WSHShell
Set 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 if
Set WSHShell = Nothing
WScript.Quit(0)
我也不懂http://zhidao.baidu.com/question/369404750.html
自己在C:\Windows里新建一个文本文档,把下面的东西复制进去,关闭-保存。然后在打开显示文件后缀名。把刚刚建立的“新建文本文档.txt”改成“hidefile.vbs”就可以了。
Dim WSHShell
Set 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 if
Set WSHShell = Nothing
WScript.Quit(0)
我也不懂http://zhidao.baidu.com/question/369404750.html
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询