关于vb删除(隐藏显示)其他程序在任务栏中的图标问题

weiyi75 2006-10-14 02:23:27

关于vb删除其他程序在任务栏中的图标问题。
对任务栏编程的核心函数是Shell_NotifyIcon，其声明
Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyI conA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Long
Type NOTIFYICONDATA
CbSize As Long '该数据结构的大小
hWnd As Long '处理图标通知消息的窗口句柄
uID As Long '应用程序定义的图标号
uFlags As Long
End Type
通过该函数能够添加、删除任务栏图标，那么如果想删除其他程序的图标首先要获得该程序句柄（可用findwindow获得）以及该程序在任务栏中的uID，望高手为小弟解答如何获得某一个程序的uID，谢谢。如果能详细阐述如何删除另一个程序在任务栏中的图标，更是不胜感激！

...全文

1279 54 打赏收藏转发到动态举报

写回复

用AI写文章

54 条回复

切换为时间正序

请发表友善的回复…

发表回复

gg207 2007-04-03

打赏
举报

学习了呵呵

weiyi75 2006-10-23

打赏
举报

果子林，感谢你的指点，这里是20分，请笑纳。

weiyi75 2006-10-23

打赏
举报

有人说更好的隐藏显示这个是要拦截任务栏的消息，

就是这个软件的作者

http://www.vczu.com/magichide/magichide.htm

这才叫隐藏显示啊。

Alzzl 2006-10-21

打赏
举报

再研究下

weiyi75 2006-10-21

打赏
举报

我的怎么可以自动缩小呢？就是看到了瞬间延迟更新任务栏，把隐藏变空白的地方向右移动了。

xp sp2，不自动隐藏任务栏，不隐藏活动的图标，可能用超级兔子设置了自动更新选项，任务栏也可以？

Alzzl 2006-10-21

打赏
举报

不是吧，我这里隐藏起来很快啊
任务栏不会自动缩小倒是个问题，一开始就存在了
有空我再查查相关的系统消息，看看有没有能用到的

Alzzl 2006-10-21

打赏
举报

这段代码和窗体的创建方式没有关系
因为所有的程序要想把自己的图标放到任务托盘中，就必须调用
Shell_NotifyIcon这个api，当调用成功后，系统就为该程序
在任务托盘中添加一个按钮（就是我们所说的图标），因此，我
们在隐藏他的时候，当然也不需要了解窗体是如何构建的，因为
我们只是对系统托盘这一toolbar进行操作（这个东西与生成他
的程序毫无关系，是由explorer。exe创建的），获得他的句柄后，
就可以用sendmessage对其操作。

不知道这么说你明不明白

killl 2006-10-21

打赏
举报

郁闷，在我的电脑上隐藏了始终空白一块，任务栏不会自动缩小。

weiyi75 2006-10-21

打赏
举报

理解错了，代码没问题，不过这个程序可以看出VB程序还是有些慢，你仔细看隐藏图标的瞬间任务栏的变化。不知是哪里代码效率低，还是没通知任务栏及时更新呢？

weiyi75 2006-10-21

打赏
举报

可以了。

Option Explicit
Private Const WM_USER = &H400
Private Const TB_BUTTONCOUNT = (WM_USER + 24)
Private Const TB_HIDEBUTTON = (WM_USER + 4)
Private Const TB_GETBUTTONTEXTA = (WM_USER + 45)
Private Const TB_AUTOSIZE = (WM_USER + 33)

Private Const MEM_COMMIT = &H1000
Private Const MEM_RESERVE = &H2000
Private Const MEM_RELEASE = &H8000

Private Const PAGE_READWRITE = &H4

Private Const PROCESS_VM_OPERATION = (&H8)
Private Const PROCESS_VM_READ = (&H10)
Private Const PROCESS_VM_WRITE = (&H20)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32.dll" (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Private Sub Command1_Click() '隐藏
Dim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim IconText As String

hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)

GetWindowThreadProcessId hwnd2, pIdExplorer
hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)
lpIconText = VirtualAllocEx(ByVal hExplorer, ByVal 0&, Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)

BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)

Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1

IconText = Space$(256)
lLen = SendMessage(hwnd2, TB_GETBUTTONTEXTA, i, ByVal lpIconText)
ReadProcessMemory hExplorer, ByVal lpIconText, ByVal IconText, Len(IconText), 0
If lLen <> -1 Then IconText = Left$(IconText, InStr(1, IconText, Chr$(0)) - 1)
If IconText = List1.List(List1.ListIndex) Then ' "音量" Then
SendMessage hwnd2, TB_HIDEBUTTON, i, ByVal True
SendMessage hwnd2, TB_AUTOSIZE, 0, 0
End If
Next
VirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASE
CloseHandle hExplorer
End Sub

Private Sub Command2_Click() '显示列表
Dim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim IconText As String

hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)

GetWindowThreadProcessId hwnd2, pIdExplorer
hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)
lpIconText = VirtualAllocEx(ByVal hExplorer, ByVal 0&, Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)

BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)

Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1

IconText = Space$(256)
lLen = SendMessage(hwnd2, TB_GETBUTTONTEXTA, i, ByVal lpIconText)
ReadProcessMemory hExplorer, ByVal lpIconText, ByVal IconText, Len(IconText), 0
If lLen <> -1 Then IconText = Left$(IconText, InStr(1, IconText, Chr$(0)) - 1)
If IconText = List1.List(List1.ListIndex) Then ' "音量" Then
SendMessage hwnd2, TB_HIDEBUTTON, i, ByVal False
SendMessage hwnd2, TB_AUTOSIZE, 0, 0
End If
Next
VirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASE
CloseHandle hExplorer
End Sub

Private Sub Command3_Click() '刷新列表
List1.Clear
Dim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As Long
Dim i As Integer
Dim BtnCount As Integer
Dim IconText As String

hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)

GetWindowThreadProcessId hwnd2, pIdExplorer
hExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)
lpIconText = VirtualAllocEx(ByVal hExplorer, ByVal 0&, Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)

BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)

Dim lLen As Long, sBuff As String
For i = 0 To BtnCount - 1

IconText = Space$(256)
lLen = SendMessage(hwnd2, TB_GETBUTTONTEXTA, i, ByVal lpIconText)
ReadProcessMemory hExplorer, ByVal lpIconText, ByVal IconText, Len(IconText), 0
If lLen <> -1 Then IconText = Left$(IconText, InStr(1, IconText, Chr$(0)) - 1)
List1.AddItem IconText

Next
VirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASE
CloseHandle hExplorer
End Sub

Private Sub Form_Load()
Command3_Click
End Sub

Alzzl 2006-10-21

打赏
举报

我试过了可以用的你自己跟踪下看看为什么失效
可以把断点设在这里：
If IconText = "音量" Then

weiyi75 2006-10-21

打赏
举报

这段代码不具备通用性啊，迅雷的父子关系在spy++里面看不出和"ToolbarWindow32", 有什么关系，但是它确实在它上面。

Alzzl 2006-10-21

打赏
举报

我有空去试试

weiyi75 2006-10-21

打赏
举报

太感谢了，不过提个问题，迅雷5为什么不可以呢？

Alzzl 2006-10-21

打赏
举报

8好意思，写得不仔细，msdn上面写得没错
SendMessage hwnd2, TB_HIDEBUTTON, i, ByVal False
+上这个byval就好了

weiyi75 2006-10-21

打赏
举报

楼上的发个帖子问问那个老外吧，他一定知道。

weiyi75 2006-10-20

打赏
举报

TB_HIDEBUTTON
This message hides or shows the specified button in a toolbar.

TB_HIDEBUTTON wParam = (WPARAM) idButton;
lParam = (LPARAM)MAKELONG(fShow,0);
Parameters
idButton
Command identifier of the button to hide or show.
fShow
Show flag. If set to TRUE, the button is hidden. If set to FALSE, the button is shown.
Return Values
TRUE indicates success. FALSE indicates failure.

Requirements

这里

(LPARAM)MAKELONG(fShow,0); vb怎么定义和赋值计算等，c太差了。

weiyi75 2006-10-20

打赏
举报

明白了，但是bug在哪里？搞了一个星期了，藏容易，但是恢复没反应。

PctGL 2006-10-20

打赏
举报

只有在 = 号右边的计算完成才能给右边赋值 < 这句错了

只有在 = 号右边的计算完成才能给>左<边赋值

PctGL 2006-10-20

打赏
举报

hwnd2 = FindWindow("Shell_TrayWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)
hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)
这样写的方式很明白,清晰...
只有在 = 号右边的计算完成才能给右边赋值
这样如果右边的计算已经完成就完全可以丢弃以前的数据,只要从新赋值就行了
ToolbarWindow32 是 SysPager 的儿子是 TrayNotifyWnd 的儿子是 Shell_TrayWnd 的儿子
它们不是顶级窗口,只有一层一层的找才能找的到