一打开一个东西电脑最下面的那一栏就有两个显示

首先，新建一个文本文档（写字板），然后把下面的代码拷进去，
重点：拷完之后呢，一定要另存为一个后缀为VBS的文档，关闭文档之后双击这个文件，即可修复任务栏上所出现的问题拉。

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\Stream**RU\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams&