朝鲜士兵越过三八线:为什么任务栏上显示不出任务?还有,任务栏上如果没有工具栏就会自动缩成一条线,而且拖不出来,为什么?

来源:百度文库 编辑:高校问答 时间:2024/05/03 09:59:16

你的系统注册表有地方改动了~~~~如果你的系统是XP的话这样做:
把以下文本另存为showbar.vbs双击运行即可(扩展名一定要为VBS,)。

'来源:Microsoft Windows XP NewsGroup
Set WSHShell = WScript.CreateObject("WScript.Shell")
Message = "此脚本用于修复Windows XP中当最小化程序时,无法在任务栏显示图标的问题。"& vbCR & vbCR
Message = Message & " "& vbCR & vbCR
Message = Message & "为正常工作,本脚本将关闭和重启 Windows Explorer外壳,这个操作不会损坏你" & vbCR & vbCR
Message = Message & "的系统,请关闭所有杀毒软件的实时监控!并保存所有打开的文件"& vbCR & vbCR
Message = Message & " "& vbCR & vbCR
Message = Message & " By 564253745 "& vbCR & vbCR
Message = Message & " 2005/09/07"& 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, "媒体列", "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 & "请开新窗口查看任务栏", 4096, "完成"

Else

MsgBox "没有对你的系统进行任何改变" & vbcr & vbcr & " 请放心!", 4096, "用户取消了"

End If

任务栏的属性里,“自动隐藏任务栏”不要勾上

你是不是设置了自动陷藏呀,取消掉吧!