惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

Y
Y Combinator Blog
freeCodeCamp Programming Tutorials: Python, JavaScript, Git & More
博客园_首页
量子位
V
Visual Studio Blog
博客园 - Franky
宝玉的分享
宝玉的分享
让小产品的独立变现更简单 - ezindie.com
让小产品的独立变现更简单 - ezindie.com
奇客Solidot–传递最新科技情报
奇客Solidot–传递最新科技情报
OSCHINA 社区最新新闻
OSCHINA 社区最新新闻
博客园 - 【当耐特】
罗磊的独立博客
小众软件
小众软件
V
V2EX
GbyAI
GbyAI
B
Blog RSS Feed
博客园 - 三生石上(FineUI控件)
大猫的无限游戏
大猫的无限游戏
有赞技术团队
有赞技术团队
月光博客
月光博客
Recent Announcements
Recent Announcements
雷峰网
雷峰网
F
Fortinet All Blogs
M
MIT News - Artificial intelligence

博客园 - MadGoat

反序列化对象时处理package和serialVersionUID不一致 修改ant-degisn-vue源码实现月范围开始结束可选同一个月 右键刷新弹出网页广告的解决办法 我的黑莓电子书阅读解决方案 我的BB8700的新伙伴-JABRA BT135蓝牙耳机 XP系统无法出现关机界面的解决一例 关于WINDOWS XP登陆的几个技巧 - MadGoat - 博客园 教你建一个别人打不开的文件夹 开始菜单只剩下经典模式了 [转载]淮北方言集锦 七八十年代人儿时的玩具 浏览网页右键快速保存内容的小脚本 TatuGIS 破解笔记 NativeExcel 破解笔记 - MadGoat - 博客园 可恶的硬件故障(已解决) 推荐大学自习室后的《再见大四》 美国独立电影人制作的纪录片《南京梦魇——南京大屠杀》 再次推荐SQLPrompt3 -简单破解无限期的使用这款很不错的SQL查询分析工具 用户中心 - 博客园
任务栏无任务显示的问题
MadGoat · 2008-06-13 · via 博客园 - MadGoat

碰到一个任务栏无任何任务的情况,G了一下,找到以下解决方案。另存为vbs文件,执行即可。
至于产生这种情况的原因,估计用那用电脑的小丫头也不知道。

'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 & "是否继续?"

= 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