нажатие клавиш в окно

[050]

ПРошу подсказать, можно ли, зная дескриптор окна (чужого), передать
в него нажатие клавиш (например CTRL + space) и будет ли при этом фокус перемещаться на ту форму??

[RayShade]

SendMessage и в поиск.

[050]

...а вот есть API вызов sendmessage и там сообщение WM_CHAR - этим нельзя воспользоваться?

[alibek]

Гораздо проще воспользоваться SendKeys или API keyb_event. WM_CHAR тоже можно, но зачем?

[050]

alibek, RayShade,
насколько я понял через sendkeys всеравно надо пользовать api
чтобы та форма получили фокус, а затем уже sendkeys.
??
если можно небольшой пример, передать фокус некой форме (по hwnd),
послать туда ctrl+space и получить фокус обратно??
Спасибо.

[Viper]

вот ведь лень до чего людей доводит, пользуся API функцией SetForegroundWindow

SetForegroundWindow hWnd ' устанавливаем фокус на окно с известным хэндлом
SendKeys ... ' отсылаем нужное
SetForegroundWindow me.hWnd ' возвращаем фокус на родину

[050]

viper!,

api нашел окно делается активным, но как послать туда sendkeys,

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

Private Sub form_load()
Dim hwnd As Long
Dim name As String
name = "Безымянный - Блокнот"
hwnd = FindWindow(vbNullString, name)
Call SetForegroundWindow(hwnd)
SendKeys "ggg"
End Sub



посылает на форму, а не в блокнот??

[Viper]

Да? У меня код почему то успешно срабатывает

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

Private Sub Command1_Click()
Dim hWndFind As Long
hWndFind = FindWindow(vbNullString, "Безымянный - Блокнот")
If hWndFind <> 0 Then
    SetForegroundWindow hWndFind
    SendKeys "Write to active window"
End If
End Sub

[alibek]

Если окно ищется по заголовку, зачем вообще API?
AppActivate.

[050]

viper!
ok! спасибо.
а как вернуть фокус?
поскольку

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

SetForegroundWindow Form1.hwnd


сразу в этом же command_click - зацикливает программу

[Debugger]

???
Булевая переменная... И таймер.

[Antonariy]

А почему незаслуженно обойдена вниманием апи SetFocus?

[050]

Antonariy,
а чем она лучше используемой?

[050]

Alibek,
AppActivate - не подходит, поскольку окно может быть не просто не активное , но и свернутое...

[tyomitch]

А почему незаслуженно обойдена вниманием апи SetFocus?

Напоминаем, что фокус свой в каждом потоке. SetFocus к окнам чужих потоков не имеет эффекта.