And the rest of the code is the following. The program compiles and runs but it doesnt work as expected.
Program.vb
[VBNET]Imports System.Runtime.InteropServices
Imports TrayTest.Common
Module Program
Public Const WM_USER As Short = &H400S
Public Const TB_GETBUTTON As Integer = (WM_USER + 23)
Public Const TB_BUTTONCOUNT As Integer = (WM_USER + 24)
Public Const TB_COMMANDTOINDEX As Integer = (WM_USER + 25)
Public Const TB_GETBUTTONTEXTA As Integer = (WM_USER + 45)
Public Sub Main()
Dim hWndTray As IntPtr = GetToolbarWindowHandle()
GetToolbarButtons(hWndTray)
End Sub
Private Function GetToolbarWindowHandle() As IntPtr
Dim hWnd As IntPtr
hWnd = User32.FindWindow("Shell_TrayWnd", Nothing)
hWnd = User32.FindWindowEx(hWnd, Nothing, "TrayNotifyWnd", Nothing)
hWnd = User32.FindWindowEx(hWnd, Nothing, "SysPager", Nothing)
hWnd = User32.FindWindowEx(hWnd, Nothing, "ToolbarWindow32", Nothing)
Return hWnd
End Function
Private Sub GetToolbarButtons(ByVal hWndTray As IntPtr)
Dim bInfo As TBBUTTON
Dim xpBuffer As Integer
Dim bText As String
Dim tbCount As Integer
Dim lret As Integer
Get button count
tbCount = User32.SendMessage(hWndTray, TB_BUTTONCOUNT, 0, 0)
If tbCount <= 0 Then Exit Sub
Need a buffer? Ask Dr Memory!
xpBuffer = drMemoryAlloc(CInt(hWndTray), 4096)
For tbIndex As Integer = 0 To tbCount - 1
TB_GETBUTTON
User32.SendMessage(hWndTray, TB_GETBUTTON, tbIndex, xpBuffer)
drMemoryRead(xpBuffer, VarPtr(bInfo), Len(bInfo))
lret = User32.SendMessage(hWndTray, TB_GETBUTTONTEXTA, bInfo.idCommand, xpBuffer)
If lret > 0 Then
bText = New String(Chr(0), lret + 1)
drMemoryRead(xpBuffer, VarPtr(bText), lret)
Else
bText = ""
End If
Next
drMemoryFree(xpBuffer)
End Sub
Private Function VarPtr(ByVal o As Object) As Integer
Dim GC As GCHandle = GCHandle.Alloc(o, GCHandleType.Pinned)
Dim vAddress As IntPtr = GC.AddrOfPinnedObject
GC.Free()
Return Marshal.ReadInt32(vAddress)
End Function
End Module[/VBNET]
User32.vb
[VBNET]Imports System.Runtime.InteropServices
Namespace Common
#Region " Strcuture Declarations "
<StructLayout(LayoutKind.Sequential)> _
Friend Structure TBBUTTON
Public iBitmap As Integer
Public idCommand As Integer
Public fsState As Byte
Public fsStyle As Byte
Public bReserved1 As Byte
Public bReserved2 As Byte
Public dwData As Integer
Public iString As Integer
End Structure
#End Region
#Region " API Declarations "
Friend Class User32
<DllImport("user32.dll")> _
Public Shared Function SendMessage( _
ByVal hWnd As IntPtr, _
ByVal msg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) As Integer
End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Public Shared Function FindWindow( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr
End Function
<DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
Public Shared Function FindWindowEx( _
ByVal hwndParent As IntPtr, _
ByVal hwndChildAfter As IntPtr, _
ByVal lpszClass As String, _
ByVal lpszWindow As String) As IntPtr
End Function
End Class
#End Region
End Namespace[/VBNET]
What code program do and whats supposed to do:
First, it will find the systray (notification area) window handler, count all the toolbar buttons (icons in the systray) and then get the text (tooltip) from each button and store it in
bText. The tooltip value isnt saved, the code just loops through every button, gets the text and does nothing with it. This is what the code is supposed to do. Everything works except the part to get the tooltip text from the button. I dont understand why but
bInfo is always "empty" (zeros in most values).
Any suggestions?
