温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

用vbscript实现隐藏任务栏图标的脚本分享

发布时间:2021-09-02 21:22:04 来源:亿速云 阅读:180 作者:chen 栏目:开发技术

本篇内容介绍了“用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

“用vbscript实现隐藏任务栏图标的脚本分享”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注亿速云网站,小编将为大家输出更多高质量的实用文章!

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI