Question

hidefile.vbs 错误

Answer 1

原因是执行 隐藏/显示文件的时候，电脑调用Hidefile.vbs。
但修改文件隐藏显示的属性 权限不够。因此vbs提示没有权限的错误。
PS:并不是因为中了木马或者病毒。

所以
1，检查需要隐藏显示的文件属性，是否可以对你登录的用户隐藏/显示。
2，检查登录的用户是否是administrator 权限

追问

您是复制的别人别的问题的答案！！！！！！希望您对自己的行为负责。谢谢！

追答

可能被360误杀了，自己在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)

追问

很感谢您

Answer 2

你在C:\windows\找到hidefile.vbs
用记事本编辑，在第5行的从左往右数100个字符然后在后面加空格然后输入Then再试试！

Answer 3

if 语句不知要可不可以没有then
检查一下,或者百度一下vbs if语句的用法

Answer 4

代码中的 if 语句不完整