以文本方式查看主题

-  胡老师的个人家教中心--15年专注1对1初中家教服务  (http://www.7742180.com/bbs/index.asp)
--  --+小文专区+--  (http://www.7742180.com/bbs/list.asp?boardid=7)
----  任务栏消失的解决办法  (http://www.7742180.com/bbs/dispbbs.asp?boardid=7&id=343)

--  作者:小文
--  发布时间:2007/6/5 23:25:29
--  任务栏消失的解决办法

现象:

任务拦窗口最小化后就不见了  
  
不是被隐藏,好像是被关闭了。。
.无论什么窗口最小化后在任务栏都看不见  
但是,在任务管理器里面还是有的,也就是说,在任务栏里面看不到我最小化的窗口,但是在进程里面还是可以显示的.而且用键盘还是能打开窗口的.

把以下文本另存为xp_taskbar_desktop_fixall_chs.vbs双击运行即可。  

\'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don\'t show.  
\'?Kelly Theriot and Doug Knox - 8/22/2003  
\'翻译:Smallfrogs。翻译内容:将英文提示改为简体中文  
\'来源:Microsoft Windows XP NewsGroup  

Set WSHShell = WScript.CreateObject("WScript.Shell")  
Message = "本脚本用于修复Windows XP中当最小化程序时,无法在任务栏显示图标的问题。"& vbCR & vbCR  
Message = Message & "为了正常工作,本脚本将关闭和重启 Windows Explorer 外壳,这个操作不会损坏你的系统。" & vbCR & vbCR  
Message = Message & "请关闭所有杀毒软件的实时监控!并保存所有打开的文件。"& vbCR & vbCR  
Message = Message & "是否继续?"  

X = MsgBox(Message, vbYesNo+vbExclamation, "注意")  

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\\StreamsMRU\\"  
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 "完成!" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "完成"  

Else  

MsgBox "没有对你的系统进行任何改变。" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "用户取消了"  

End If