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

sniperhgy

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

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

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

Batcher

为了方便他人查看和搜索，请更新为简体中文。

slore

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

能不能借鉴下？

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

sniperhgy

    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 
复制代码

其实是改了一下注册表……
继续求助