中国DOS联盟

http://bbs.crsky.com/1128632305/Mon_0703/65_161322_984c9af85f08ebb.jpg

'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show.
'?Kelly Theriot and Doug Knox - 8/22/2003

Set WSHShell = WScript.CreateObject("WScript.Shell")

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"

X = MsgBox(Message, vbYesNo, "Notice")

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\StreamMRU\"
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 "Finished." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "Done"

Else

MsgBox "No changes were made to your system." & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "User Cancelled"

End If

这是个去掉勾的VBS脚本，哪位大虾。帮我参考一下，编个加上勾的“批处理”文件！

[ Last edited by eech on 2007-3-29 at 10:25 AM ]

变通了一下，目前我还没有更好的方法。

http://zhenlove.com.cn/cndos/fileup/files/Show_Quick Launch.rar

[ Last edited by baomaboy on 2007-3-29 at 01:36 PM ]

谢谢你。代码可以精简一下吗？如能改成批处理就更好了

哈哈。已搞定。用不着那么麻烦，新建NoDesktop。值为0即可！

Originally posted by eech at 2007-3-29 23:17:
哈哈。已搞定。用不着那么麻烦，新建NoDesktop。值为0即可！

字面分析NoDesktop应该是不显示桌面吧，值为0应该是不隐藏桌面，和快速启动栏有关系吗？

按你所述，添加了一句，无效果，：

由于你未给出路径，也许是路径错了

WshShell.RegWrite p1 & "NoDesktop",0,"REG_DWORD"

奇怪，为什么新装的系统（不含驱动）中。这个批处理无用

echo Windows Registry Editor Version 5.00>>tmp.reg
echo >>tmp.reg
echo "NoDesktop"=dword:00000000>>tmp.reg
start /wait regedit /s tmp.reg
del /q tmp.reg

不起作用？可我当前的系统有用啊

[ Last edited by eech on 2007-3-30 at 06:54 AM ]