Copy Code code as follows:
' Xp_taskbar_desktop_fixall.vbs-repairs the taskbar when minimized programs don ' t show.
'? Kelly Theriot and Doug knox-8/22/2003 processing Garon ddf3
' Translation: Smallfrogs. Translate content: Change English prompts to Simplified Chinese
' Source: Microsoft Windows XP Newsgroup
Set WshShell = WScript.CreateObject ("Wscript.Shell")
message = "This script is used to repair the problem of Windows XP when you minimize a program and cannot display an icon in the taskbar. "& vbcr & vbcr
Message = message & "To work properly, this script will shut down and restart the Windows Explorer shell, which will not damage your system." "& vbcr & vbcr
Note = message & "Please turn off all anti-virus software real-time monitoring!" and save all open files. "& vbcr & vbcr
Message = message & "Do you want to continue?" "
X = MsgBox (message, vbyesno+vbexclamation, "note")
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 "Done!" Powered by Ddf3 "& vbcr & vbcr &"? Kelly Theriot and Doug Knox ", 4096," complete "
Else
MsgBox "does not make any changes to your system. "& vbcr & vbcr &"? Kelly Theriot and Doug Knox ", 4096," User canceled "
End If
