DDR爱好者之家

用vbscript实现隐藏任务栏图标的脚本
站长资源 2024/5/17 佚名
53 1538
DDR爱好者之家 Design By 杰米
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
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网 更多链接
DDR爱好者之家 Design By 杰米