MARK2 发表于 2007-12-20 00:24

任务栏古怪现象求助！

单位的公用机子不知被谁搞成了如下这个样子，任务栏中无法显示窗口内容……求解~~~

bikkibakki 发表于 2007-12-20 09:43

试下这个工具有用否。

hui.w 发表于 2007-12-20 11:44

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, \"完成\"
End If

保存为vbs文件，猛击执行
页: [1]
查看完整版本: 任务栏古怪现象求助！