Нажать кнопку в "чужом" приложении

[v000v]

Всем здрасти!

Вопрос:
Необходимо из своей программы нажать кнопку в "чужом" окне.
В иерархии, кнопка находится: Parent1 -> Parent2 ... -> ParentN: Button.
Дескриптор кнопки имеется, дескрипторы всех Parent'ов тоже. Определяются правильно.
Пробовал следующие конструкции:

1)
Const BM_CLICK = &HF5

lPar = SendMessage(хэндлКнопки, BM_CLICK, 0, ByVal 0&) возвращает ноль

2)
Нашел пример на Дельфи
SendMessage(ParentN,WM_Command,MakeWParam(IdBtn,BN_CLICKED),HndBtn);

как перевести макрос MakeWParam (выполняет конкатенацию строк) на VB?
Также нашел подобное применение функции SendMessage для выполнения UNDO:

SendMessage Edit1.hwnd, WM_COMMAND, &HE12B * 65536, 0
пробовал переделать под свои нужды, не получается

Как же нажать эту кнопку?
Если можно порядок действий, можно без кода.

Спасибо.

[Antonariy]

Запусти Spy++, разыщи свою кнопку, посмотри какие сообщения она получает при нажатии, намылитьсмытьповторить.
А для начала попробуй SendMessage hwnd, 256, 115, 0

[tyomitch]

Нашел пример на Дельфи
SendMessage(ParentN,WM_Command,MakeWParam(IdBtn,BN_CLICKED),HndBtn);

как перевести макрос MakeWParam (выполняет конкатенацию строк) на VB?

Это ты хорошо загнул с конкатенацией... MakeWParam(a, b) - то же самое, что a + 65536 * b

[v000v]

tyomitch
Это ты хорошо загнул с конкатенацией... MakeWParam(a, b) - то же самое, что a + 65536 * b [/quote]


Это понятно... Почему
SendMessage(ParentBut, WM_COMMAND, IdBtn & 65536 * BN_CLICKED, FirstBut) не работает?

Antonary
SendMessage hwnd, 256, 115, 0 не работает

Spy++ показывает следующее:
WM_MOUSEACTIVATE hwndTopLevel: 000500B8 nHittest:HTCLIENT uMsg: WM_LBUTTONDOWN

WM_MOUSEACTIVATE fuActivate:MA_ACTIVATE

ну и еще много чего, которое, как я понял является уже производным "клика" (открывается новое окно, меняются его размеры и т.п.)

Теперь, зная все это мне что нужно в своей программе воспроизвести тоже самое?
Что значит nHittest и fuActivate?

[GSerg]

Это понятно... Почему
SendMessage(ParentBut, WM_COMMAND, IdBtn & 65536 * BN_CLICKED, FirstBut) не работает?

Судя по всему, совсем не понятно.
Ты хоть обратил внимание на то, что именно написал Тёмыч в качестве MakeWParam?

Что значит nHittest и fuActivate?

Это не те сообщения, которые тебе нужны.

[Antonariy]

Пардон насчет 256, 115, это для комбобокса, чтобы дропдаун вылез.

На самом деле тебе придется методом тыка перебирать события, потому что неизвестно на какое из них срабатывает собственно клик. Например в VB Command1_Click срабатывает только когда отпустишь кнопку, поэтому WM_LBUTTONDOWN не прокатывает. Попробуй послать сообщение о нажатии ентера или пробела.

[kirrun]

Antonariy

В виндовс приложениях по дефолту срабатывает когда отпускаешь кнопку. Именно это считается кликом. А срабатывание при нажатии кнопки - извращение. На крайняк можно сначала послать нажать, потом - отпустить.

[Antonariy]

kirrun

В любом случае, WM_LBUTTONDOWN и WM_LBUTTONUP не работают.

[kirrun]

хм.. странно...

[Konst_One]

(c)API-Guide

Код: Выделить всё

'Before you start this program, I suggest you save everything that wasn't saved yet.
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Do
        'Simulate a mouseclick on the cursor's position
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
        DoEvents
    Loop
End Sub

[kirrun]

О! Пришел умный человек и всех рассудил =)

[v000v]

Konst One

Спасибо!

Проще некуда!