[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

VBS如何隐藏任务栏里面的程序图标?

网上找了一下,大多是一些工具实现的,我想vbs可以接触到windowsapi的一些東西,能不能用vbs实现呢?
我只找到一个隐藏系统托盘的(System Tray)也就是右下角的内容,但是真正隐藏任务栏(Task Bar)的,沒有。

请教高手怎样用vbs做到隐藏指定窗口的最小化图标?

[ 本帖最后由 sniperhgy 于 2009-2-26 17:46 编辑 ]

  1.     Message = "To work correctly, the script will close" & vbCR
  2.     Message = Message & "and restart the Windows Explorer shell." & vbCR
  3.     Message = Message & "This will not harm your system." & vbCR & vbCR
  4.     Message = Message & "Continue?"
  5.     X = MsgBox(Message, vbYesNo, "Notice")
  6.     If X = 6 Then
  7.     On Error Resume Next
  8.     Dim WSHShell, n, MyBox, p, t, errnum, vers
  9.     Dim itemtype
  10.     Dim enab, disab, jobfunc
  11.     Set WSHShell = WScript.CreateObject("WScript.Shell")
  12.     p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
  13.     itemtype = "REG_DWORD"
  14.     enab = "ENABLED"
  15.     disab = "DISABLED"
  16.     jobfunc = "Notification Icons are now "
  17.     t = "Confirmation"
  18.     Err.Clear
  19.     n = WSHShell.RegRead (p)
  20.     errnum = Err.Number
  21.     if errnum <> 0 then
  22.      WSHShell.RegWrite p, 0, itemtype
  23.     End If
  24.     If n = 0 Then
  25.      n = 1
  26.     WSHShell.RegWrite p, n, itemtype
  27.     Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
  28.     ElseIf n = 1 then
  29.      n = 0
  30.     WSHShell.RegWrite p, n, itemtype
  31.     Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
  32.     End If
  33.     Set WshShell = Nothing
  34.     On Error GoTo 0
  35.     For Each Process in GetObject("winmgmts:"). _
  36.      ExecQuery ("select * from Win32_Process where name='explorer.exe'")
  37.      Process.terminate(0)
  38.     Next
  39.     MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
  40.     Else
  41.     MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
  42.     End If
复制代码
其实是改了一下注册表……
继续求助

TOP

我只找到一个隐藏系统托盘的(System Tray)也就是右下角的内容

能不能借鉴下?

VBS无3方组件不能使用API……

TOP

为了方便他人查看和搜索,请更新为简体中文。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表