还原/修改XP任务栏
来源:互联网 发布:php指定位置替换字符串 编辑:程序博客网 时间:2024/05/12 10:47
'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
'?Kelly Theriot and Doug Knox - 8/22/2003
'翻译:Smallfrogs。翻译内容:将英文提示改为简体中文
'来源:Microsoft Windows XP NewsGroup
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, "完成"
Else
MsgBox "没有对你的系统进行任何改变。" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "用户取消了"
End If
'?Kelly Theriot and Doug Knox - 8/22/2003
'翻译:Smallfrogs。翻译内容:将英文提示改为简体中文
'来源:Microsoft Windows XP NewsGroup
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, "完成"
Else
MsgBox "没有对你的系统进行任何改变。" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "用户取消了"
End If
- 还原/修改XP任务栏
- win7超级任务栏还原为xp任务栏样式
- XPTaskBar XP的任务栏
- XP任务栏结构解析
- 优化分组XP任务栏
- XP任务栏结构解析
- XP任务栏结构解析
- win7底部任务栏还原方法
- Windows XP任务栏隐藏解决
- Android SystemUI任务栏修改
- 急!还原windows7任务栏的 资源管理器图标
- 还原任务栏右下角的隐藏图标
- Photoshop制作精致的XP风格任务栏
- XP任务栏声音图标丢失的解决方法
- xp系统任务栏变成了灰色
- Win XP系统任务栏优化实用技巧
- Windows XP系统任务栏实用技巧总集
- XP系统任务栏的输入法图标不见了
- 中国青年不就业有5类型!
- WS-Security中WSE2.0和SUN JWSDP1.5的协作
- 大学生第一次创业第一次失败
- 数字电路设计的抗干扰考虑
- ASCII码表
- 还原/修改XP任务栏
- 一点小心情
- 图象处理算法(c#实现)---反转
- 图象处理算法(c#实现)--浮雕
- 兼职的黄金法则!
- 部分正则表达式
- 参加《IBM软件研讨》会议纪要
- ADO.net学习记录 (一)
- javascrip弹出一个窗口