以文本方式查看主题 - 胡老师的个人家教中心--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. Set WSHShell = WScript.CreateObject("WScript.Shell") 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\\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" p1 = "HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Group Policy Objects\\LocalUser\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer\\" WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD" 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}\\" On Error Goto 0 For Each Process in GetObject("winmgmts:"). _ MsgBox "完成!" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "完成" Else MsgBox "没有对你的系统进行任何改变。" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "用户取消了" End If |