首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 其他教程 > 其他相关 >

右键菜单展示隐错文件和扩展名时报错

2012-08-14 
右键菜单显示隐错文件和扩展名时报错右键菜单显示隐错文件和扩展名时报错 2012年01月11日        打开右键

右键菜单显示隐错文件和扩展名时报错

右键菜单显示隐错文件和扩展名时报错
2012年01月11日
     
  
  
  打开右键菜单,点击显示隐藏文件和扩展名时,跳出上图所示错误提示
  具体原因是因为脚本病毒,病毒想开机启动它,但是这个文件不存在,所以就有一上提示
  解决方法如下
  打开记事本输入
  'Show/Hide System Files by Herby
  Dim WSHShell
  Set WSHShell = WScript.CreateObject("WScript.Shell")
  sTitle1 = "SSH=0"
  sTitle2 = "SSH=1"
  if WSHShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
  WSHShell.SendKeys "{F5}+{F10}e"
  'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation
  else
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
  WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
  WSHShell.SendKeys "{F5}+{F10}e"
  'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation
  end if
  Set WSHShell = Nothing
  WScript.Quit(0)
  然后保存为“SuperHidden.vbs”,注意后缀名为vbs,不要写成txt了,然后放在C:\WINDOWS目录下就OK了。

热点排行