Изменение фокуса ввода

[IvanTheTerrible]

Запущено некое чужое приложение. Фокус ввода располагается на каком-то из его контролов.

Каким образом (желательно посредством API) переместить фокус ввода на нужный мне контрол?

[dr.MIG]

Находишь как-нибудь hWnd контрола (например, FindWindow), затем через SendMessage посылаешь ему сообщение WM_SETFOCUS.

[IvanTheTerrible]

2 dr.MIG

Пробовал так:

Public Sub ClickEnterButton()
SetForegroundWindow(WindowHwnd)
SendMessage EnterButtonHwnd, WM_SETFOCUS, 0&, 0&
SendMessage EnterButtonHwnd, BM_CLICK, 0&, 0&
End Sub

Не работает

[tyomitch]

By using the AttachThreadInput function, a thread can attach its input processing to another thread. This also allows threads to share their input states, so they can call the SetFocus function to set the keyboard focus to a window of a different thread.

[dr.MIG]

Во-первых, точно ли переменные содержат хэндлы соответствующих окон.
Во-вторых, нафига SetForegroundWindow, если по описанию сообщение BM_CLICK может не сработать,если родительское окно кнопки не активно, поэтому не SetForegroundWindow, а SetActiveWindow.
В-третьих, нафига вообще WM_SETFOCUS, если надо кликнуть по кнопке.
Вот пример, но здесь клик происходит по кнопке собственного приложения.

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


Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
Private Const BM_CLICK = &HF5

Private Sub Command1_Click()
    MsgBox "Aaaaaaa!"
End Sub

Private Sub Command2_Click()
    SendMessage Command1.hWnd, BM_CLICK, ByVal 0, ByVal 0
End Sub


[IvanTheTerrible]

Во-первых, точно ли переменные содержат хэндлы соответствующих окон.

Точно

...нафига SetForegroundWindow, если по описанию сообщение BM_CLICK может не сработать,если родительское окно кнопки не активно, поэтому не SetForegroundWindow, а SetActiveWindow.

Проверено. Надо именнно SetForegroundWindow.

...нафига вообще WM_SETFOCUS, если надо кликнуть по кнопке.

Согласен. Это я экспериментировал с бубном.

...Вот пример, но здесь клик происходит по кнопке собственного приложения.

С кликами по контролам из собственного приложения я справляюсь. Проблема в том, что в чужом приложении контролы не стандартные (самописные). Там кнопка, собственно, и не кнопка, а скорее всего ImageBox. Но, не в этом даже дело...

Моя цель - найти универсальное решение. Буду пытаться "копать" подход, предложенный tyomitch.

[dr.MIG]

Там кнопка, собственно, и не кнопка, а скорее всего ImageBox. Но, не в этом даже дело...

В случае с BM_CLICK как раз таки в этом...

[IvanTheTerrible]

В случае с BM_CLICK как раз таки в этом...

Признаю правоту.
Фокус менять/устанавливать научился. Осталось пока не ясно, какую константу слать

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

    SendMessage Hwnd, Константа_эквивалентная_мышиному_клику, 0&, 0&


[tyomitch]

WM_LBUTTONDOWN, потом WM_LBUTTONUP

[dr.MIG]

По идее, чтобы сымитировать мышиный клик, сначала надо послать WM_LBUTTONDOWN, а затем WM_LBUTTONUP.

Добавлено позже: да, с телефона постить неудобно... меня опередили

[IvanTheTerrible]

Все!!! Разобрался.

Как только добавил установку курсора над нужным мне контролом, все заработало. Видимо, в том приложении, над которым я пляшу с бубном, внутри зашита проверка события MouseOverContol и Contol становится Enabled только после размещения над ним курсора (при этом, блин, внешне ничего не меняется).

dr.MIG и tyomitch, огромное спасибо!