Clicking Toolbar button on another app

[chaden]

Hi, does anybody know how to click the first Toolbar button on another app?
I've already asked this on several places, but nobody seems to know how to do it. I tried TB_PRESSBUTTON and it sets the first button to tbrPressed, but it doesn't run the Toolbar click event.

Option Explicit

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, ByVal lParam As String) As Long
'Private Const BM_CLICK As Long = &HF5

Private Const WM_USER = &H400
Private Const TB_PRESSBUTTON = (WM_USER + 3)

Private Sub Command1_Click()
    Dim hParent As Long
    Dim hChild As Long
    
    hParent = FindWindow("TfrmMain", vbNullString)
    
    If hParent <> 0 Then
        
        hChild = FindWindowEx(hParent, 0&, "TPanel", vbNullString)
        hParent = FindWindowEx(hParent, hChild, "TPanel", vbNullString)
        hChild = FindWindowEx(hParent, 0&, "TPanel", vbNullString)
        hParent = FindWindowEx(hParent, hChild, "TPanel", vbNullString)
        hChild = FindWindowEx(hParent, 0&, "TToolbar", vbNullString)
        
        If hChild <> 0 Then
            Call SendMessage(hChild, TB_PRESSBUTTON, 0, 0)
        End If
    End If
End Sub

[RoyK]

You are only doing one action. You need to press it, wait a few miliseconds and then release it.

I thought 0 was false, so it only looks like you are releasing it.

[chaden]

Do you mean like this?

    Call SendMessage(hChild, TB_PRESSBUTTON, 0, True)
    Sleep (200)
    Call SendMessage(hChild, TB_PRESSBUTTON, 0, False)

It makes no difference. The button is pressed and stays pressed. Nothing else happens.

[Thread1]

if i can still remember, you have to send WM_COMMAND message to the parent window together with the button command id and the toolbar window handle.

[chaden]

After some searching I found this and it works fine with Internet Explorer.

http://www.vbforums.com/showpost.php...04&postcount=4

But if I replace the data in the "TestClickingToolbarButton" sub with my data, then it doesn't work.

Private Sub TestClickingToolbarButton()
    Dim hParent As Long
    Dim hChild As Long
    
    hParent = FindWindow("TfrmMain", vbNullString)
    hChild = FindWindowEx(hParent, 0&, "TPanel", vbNullString)
    hParent = FindWindowEx(hParent, hChild, "TPanel", vbNullString)
    hChild = FindWindowEx(hParent, 0&, "TPanel", vbNullString)
    hParent = FindWindowEx(hParent, hChild, "TPanel", vbNullString)
    hChild = FindWindowEx(hParent, 0&, "TToolbar", vbNullString)

    ClickToolbarButtonByIndex hChild, 1

End Sub