托盘图标的任意隐藏.docVIP

托盘图标的任意隐藏 1、 用FindWindow函数获取ToolbarWindow32的句柄。 lngTemp = FindWindow(Shell_TrayWnd, vbNullString) lngTemp = FindWindowEx(lngTemp, 0, TrayNotifyWnd, vbNullString) lngTemp = FindWindowEx(lngTemp, 0, SysPager, vbNullString) lngTray = FindWindowEx(lngTemp, 0, ToolbarWindow32, vbNullString) 2、用GetWindowThreadProcessId获取ToolbarWindow32进程ID GetWindowThreadProcessId(lngTray, lngPID) lngPID返回进程ID 3、用OpenProcess打开一个已存在的进程对象 hProcess = OpenProcess(PROCESS_ALL_ACCESS Or PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0, lngPID) 4、用VirtualAllocEx申请内存空间 lngAddress = VirtualAllocEx(hProcess, ByVal 0, ByVal 4096, MEM_COMMIT, PAGE_READWRITE) 5、用SendMessage发送TB_BUTTONCOUNT消息到ToolbarWindow32，返回图标数。 lngButtons = SendMessage(lngTray, TB_BUTTONCOUNT, 0, 0) 6、用ReadProcessMemory从进程内存空间读取数据：图标标题、图标句柄、图标进程ID（注意，要有足够的权限） For i = 0 To lngButtons - 1 ret = SendMessage(lngTray, TB_GETBUTTON, ByVal i, ByVal lngAddress) ret = ReadProcessMemory(hProcess, ByVal lngAddress + 16, ByVal VarPtr(lngTextAdr), ByVal 4, ByVal 0) If lngTextAdr -1 Then ret = ReadProcessMemory(hProcess, ByVal lngTextAdr, ByVal VarPtr(strBuff(0)), ByVal 1024, ByVal 0) ret = ReadProcessMemory(hProcess, ByVal lngAddress + 12, ByVal VarPtr(lngHwndAdr), ByVal 4, ByVal 0) ret = ReadProcessMemory(hProcess, ByVal lngHwndAdr, ByVal VarPtr(lngHwnd), ByVal 4, ByVal 0) ret = ReadProcessMemory(hProcess, ByVal lngAddress + 4, ByVal VarPtr(lngButtonID), ByVal 4, ByVal 0) 获取进程ID Call GetWindowThreadProcessId(lngHwnd, lngTbID) strText = ConverNull(strBuff) lngHwnd 所属窗口handle strText 托盘图标文字 List1.AddItem lngHwnd - strText - 进程ID： lngTbID End If Next i 7、获取图标所在进程的完整路径名称 Private Declare Function GetWindowThreadProcessId Lib user32 (ByVal hWnd As Long, _ lpdwProcessId As Long) A