干活的时候忽然发现任务栏不显示图标了,ALT+TAB切换很不方便.google一下,居然有现成的脚本可以用.HOHO,读读代码,学习ING.
存成*.vbs就可以用啦.
|
Set WSHShell = WScript.CreateObject("WScript.Shell") 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\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" p1 = "HKCU\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\" WshShell.RegWrite p1 & "NoCloseDragDropBands", 0, "REG_DWORD" 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}\" On Error Goto 0 For Each Process in GetObject("winmgmts:"). _ MsgBox "完成!" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "完成" Else MsgBox "没有对你的系统进行任何改变。" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "用户取消了" End If |