Use Vbscript to hide the taskbar icon

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
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‑'shangher.exe '")
Process. Terminate (0)
Next
Msgbox "finished." & vbcr, 4096, "done"
Else
Msgbox "no changes were made to your system." & vbcr, 4096, "user cancelled"
End if