如何修复任务栏?

http://xue8.net 2007-11-10 01:42 作者:jerry 文章类型:原创 来源:学吧
  • 【问题及现象】任务栏分成了2部份且全一样,两部份还是同步的,同时有很多个语言栏。右键-工具栏里没有多余的东西,右键属性取消分组也不行。
文章来自于【学吧】http://xue8.net/soft/view.asp?ArticleID=2313
  【问题及现象】
  
  任务栏分成了2部份且全一样,两部份还是同步的,同时有很多个语言栏。
  
  右键-工具栏里没有多余的东西,右键属性取消分组也不行。
  
  【解决办法】
  
  把下面的代码粘贴到空白的文本文档里,再另存为“任务栏修复.vbs”,完成以后双击任务栏修复.vbs,再点两次确定就OK了!
  
  Set WSHShell = WScript.CreateObject("WScript.Shell")
  
  Message = "To work correctly, the script will close" & vbCR
  Message = Message & "and restart the Windows Explorer shell." & vbCR
  Message = Message & "This will not harm your system." & vbCR & vbCR
  Message = Message & "Continue?"
  
  X = MsgBox(Message, vbYesNo, "Notice")
  
  If X = 6 Then
  
  On Error Resume Next
  
  WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\"
  WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU\"
  WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\"
  
  WshShell.RegDelete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\BarSize"
  
  P1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  
  WshShell.RegWrite p1 & "NoBandCustomize", 0, "REG_DWORD"
  WshShell.RegWrite p1 & "NoMovingBands", 0, "REG_DWORD"
  WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
  WshShell.RegWrite p1 & "NoSetTaskbar", 0, "REG_DWORD"
  WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
  WshShell.RegWrite p1 & "NoSaveSettings",0,"REG_DWORD"
1 2

发表评论

用户名:
密 码:
匿名评论
请发表评论时遵纪守法并注意语言文明!
验证码:
用户名
评论内容
目前尚无评论!