隐藏或显示托盘图标

1、'eu ?-?"o ?Option ExplicitPrivate Const WM_USER = &H400Private 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 = &H1000Private Const MEM

2、_RESERVE = &H2000Private Const MEM_RELEASE = &H8000Private Const PAGE_READWRITE = &H4Private Const PROCESS_VM_OPERATION = (&H8)Private Const PROCESS_VM_READ = (&H10)Private Const PROCESS_VM_WRITE = (&H20)Private Declare Function FindWindowLib "user32" Alias "Fi

3、ndWindowA"(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivateDeclareFunctionFindWindowExLib"user32"Alias"FindWindowExA"(ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1As String, ByVal lpsz2 As String) As LongFunction SendMessage Lib "user32&

4、quot; AliasPrivate Declare"SendMessageA"(ByVal hWnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, lParamAs Any) As LongPrivateDeclareFunctionVirtualAllocExLib"kernel32.dll"(ByValhProcess As Long, lpAddress As Any, ByRef flAllocationType As Long, ByVal flProtect As Long) As Long

5、dwSize AsLong,ByValPrivateDeclareFunctionVirtualFreeExLib"kernel32.dll"(ByValhProcess As Long, lpAddressAs Any, ByRefdwSize AsLong,ByValdwFreeType As Long) As LongPrivateDeclareFunctionOpenProcessLib"kernel32"(ByValdwDesiredAccessAs Long,ByValbInheritHandleAs Long,ByValdwProcessI

6、d As Long) As LongPrivateDeclare FunctionCloseHandleLib "kernel32"(ByVal hObject AsLong) As LongPrivate Declare FunctionGetWindowThreadProcessIdLib "user32"(ByValhWnd As Long, lpdwProcessId As Long) As LongPrivateReadProcessMemory hProcess As Long, lpBaseAddress As Any, lpBuffer

7、As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As LongDeclareFunctionLib"kernel32"(ByValPrivateWriteProcessMemoryhProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSizeDeclareFunctionLib"kernel32"(ByValAs Long, lpNumberOfBytesWritten As Long) As LongPri

8、vate Declare Function GetCurrentProcessId Lib "kernel32" () As Long'Form '°i ?'D eo a 卩？t £ oCommand£ ?Commandg ?Command氏？ListBoxPrivate Sub Command1_Click() ' o t2?±eDim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As LongDim i As I

9、ntegerDim BtnCount As IntegerDim IconText As Stringhwnd2 = FindWindow("Shell_TrayWnd", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString) hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32

10、", vbNullString)GetWindowThreadProcessId hwnd2, pIdExplorerhExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)lpIconText= VirtualAllocEx(ByValhExplorer,ByVal 0&,Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)BtnCount = SendMessa

11、ge(hwnd2, TB_BUTTONCOUNT, 0, 0)Dim lLen As Long, sBuff As StringFor i = 0 To BtnCount - 1IconText = Space$(256)lLen= SendMessage(hwnd2,TB_GETBUTTONTEXTA, i, ByVallpIconText)ReadProcessMemoryhExplorer, ByVal lpIconText, ByVal IconText,Len(IconText), 0IflLen <> -1 Then IconText = Left$(IconText,

12、InStr(1, IconText,Chr$(0) - 1)IfIconText= List1.List(List1.ListIndex)Then 'i ?aDeo a o t2?卩？ i ?±e ?3?£ o? e ?eo±e?±ee ?e± ? e ?口 ?XSendMessage hwnd2, TB_HIDEBUTTON, i, ByVal TrueSendMessage hwnd2, TB_AUTOSIZE, 0, 0End IfNextVirtualFreeEx hExplorer, lpIconText, Len(IconT

13、ext), MEM_RELEASE CloseHandle hExplorerEnd SubPrivate Sub Command2_Click() '?e ?，r ?±eDim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As LongDim i As IntegerDim BtnCount As IntegerDim IconText As Stringhwnd2 = FindWindow("Shell_TrayWnd", vbNullString)hwnd2 =

14、FindWindowEx(hwnd2, 0, "TrayNotifyWnd", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "SysPager", vbNullString)hwnd2 = FindWindowEx(hwnd2, 0, "ToolbarWindow32", vbNullString)GetWindowThreadProcessId hwnd2, pIdExplorerhExplorer = OpenProcess(PROCESS_VM_OPERATION Or PROCESS

15、_VM_READ Or PROCESS_VM_WRITE, False, pIdExplorer)lpIconText= VirtualAllocEx(ByValhExplorer,ByVal 0&,Len(IconText), MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)BtnCount = SendMessage(hwnd2, TB_BUTTONCOUNT, 0, 0)Dim lLen As Long, sBuff As StringFor i = 0 To BtnCount - 1IconText = Space$(256)lLen= Se

16、ndMessage(hwnd2,TB_GETBUTTONTEXTA, i, ByVallpIconText)ReadProcessMemoryhExplorer, ByVal lpIconText, ByVal IconText,Len(IconText), 0If lLen <> -1 Then IconText = Left$(IconText,InStr(1, IconText,Chr$(0) - 1)IfIconText = List1.List(List1.ListIndex)Then''i ?aDed a o t2?卩？ i ?±e ?3?&#

17、163; o?ie ?eo±e?±ee ?e± ? e ?口 ?XSendMessage hwnd2, TB_HIDEBUTTON, i, ByVal FalseSendMessage hwnd2, TB_AUTOSIZE, 0, 0End IfNextVirtualFreeEx hExplorer, lpIconText, Len(IconText), MEM_RELEASECloseHandle hExplorerEnd SubPrivate Sub Command3_Click() '? C D?i ?±ea D±iList1.C

18、learDim pIdExplorer As Long, hwnd2 As Long, hExplorer As Long, lpIconText As LongDim i As IntegerDim BtnCount As IntegerDim IconText As Stringhwnd2 = 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 = Virtua