Script sharing of hidden taskbar icons with vbscript
This article introduces the knowledge of "script sharing of hidden taskbar icons with vbscript". In the operation of actual cases, many people will encounter such a dilemma, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!
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 "script sharing of hidden taskbar icons with vbscript" ends here. Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!
