任务栏不见啦的解决方法

kaikai0365 · 发表于 2010-8-2 11:11

任务栏初始代码：

'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
'?Kelly Theriot and Doug Knox - 8/22/2003

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"
WshShell.RegWrite p1 & "NoToolbarsOnTaskbar", 0, "REG_DWORD"
WshShell.RegWrite p1 & "NoSetTaskbar",0,"REG_DWORD"
WshShell.RegWrite p1 & "NoActiveDesktop",0,"REG_DWORD"
WshShell.RegWrite p1 & "ClassicShell",0,"REG_DWORD"

p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"

WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD"
WshShell.RegDelete p1 & "NoMovingBands"

p1 = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell"

WshShell.RegWrite p1, "explorer.exe", "REG_SZ"

p1 = "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars\{32683183-48a0-441b-a342-7c2a440a9478}\"
WshShell.RegDelete p1 & "BarSize"
WshShell.RegWrite p1, "Media Band", "REG_SZ"

On Error Goto 0

For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next

MsgBox "Finished." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "User Cancelled"

End If
===========================================
把以上代码复制到一个TXT文本里，然后把扩展名改成VBS后运行。任务栏可以恢复正常，如果仍然无效请检查是否有恶意程序，如果检查后没有而已程序但仍然不显示任务栏，

做好的：

任务栏代码.rar (977 Bytes, 下载次数: )

sbfhvksbfhvk · 发表于 2010-8-2 11:13

很实用处理的方法。多谢分享

小灵儿 · 发表于 2010-8-2 11:49

不错，还提供了下载文件。建议收藏！！

ffjinx · 发表于 2010-8-2 12:16

谢谢分享。

hy_sdw · 发表于 2010-8-2 12:37

收藏下，备用

zzg123 · 发表于 2010-8-2 18:47

看着头有点晕晕的感觉{:143_265:}

gravel · 发表于 2010-8-2 22:29

重装一了百了

arold_kyo · 发表于 2010-8-3 13:19

感谢实用的方法

diy18 · 发表于 2010-8-3 13:53

学习了一下

zhuyuhui · 发表于 2010-8-3 14:15

见识了,学习一下哦

老千 · 发表于 2010-8-3 15:58

不错不错， COPY 了

gravel · 发表于 2010-8-4 22:21

还要分啊？？？？

haoing · 发表于 2010-8-5 00:04

值得学习感谢实用的方法

任务栏不见啦的解决方法

浏览过的版块