用vbscript实现隐藏任务栏图标的脚本
导读：收集整理的这篇文章主要介绍了用vbscript实现隐藏任务栏图标的脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 Message = "To work correctly, th...
收集整理的这篇文章主要介绍了用vbscript实现隐藏任务栏图标的脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbscript实现隐藏任务栏图标的脚本
本文地址： https://pptw.com/jishu/609680.html