用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本分享

本篇內(nèi)容介紹了“用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本分享”的有關(guān)知識(shí)，在實(shí)際案例的操作過(guò)程中，不少人都會(huì)遇到這樣的困境，接下來(lái)就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

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 
　　Dim WSHShell, n, MyBox, p, t, errnum, vers 
　　Dim itemtype 
　　Dim enab, disab, jobfunc 
　　Set WSHShell = WScript.CreateObject("WScript.Shell") 
　　p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay" 
　　itemtype = "REG_DWORD" 
　　enab = "ENABLED" 
　　disab = "DISABLED" 
　　jobfunc = "Notification Icons are now " 
　　t = "Confirmation" 
　　Err.Clear 
　　n = WSHShell.RegRead (p) 
　　errnum = Err.Number 
　　if errnum <> 0 then 
　　 WSHShell.RegWrite p, 0, itemtype 
　　End If 
　　If n = 0 Then 
　　 n = 1 
　　WSHShell.RegWrite p, n, itemtype 
　　Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t) 
　　ElseIf n = 1 then 
　　 n = 0 
　　WSHShell.RegWrite p, n, itemtype 
　　Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t) 
　　End If 
　　Set WshShell = Nothing 
　　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 , 4096, "Done" 
　　Else  
　　MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled" 
　　End If

“用vbscript實(shí)現(xiàn)隱藏任務(wù)欄圖標(biāo)的腳本分享”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注億速云網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！