隐藏任务栏里面的程序图标代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】隐藏任务栏里面的程序图标

作者:everest79 / 发布于2014/1/21/ 895

  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

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　隐藏图标　

同语言下

可能有用的

everest79贡献的其它代码(8)