Эмуляция нажатия клавиши "ENTER"

[mayevskyy]

Как выполнить эмуляцию нажатия клавиши "ENTER" окна Windows зная его hwnd?

[RayShade]

С помощью SendMessage послать ему соответствующее сообщение

[mayevskyy]

Если можно объясни чуть подробнее ...

[alibek]

Можно проще.
Через SetFocus активировать его и послать SendKeys "{ENTER}", True.

[X-BOND]

А как можна этот самый ENTER заблокировать глобально? То бишь юзер нажал, а ничего не произошло

[Ennor]

Перехватываешь KeyDown и пишешь примерно следующее:

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

If KeyCode = vbKeyReturn or keyCode = vbKeyExecute then
  KeyCode = 0
End If

[X-BOND]

Перехватываешь KeyDown и пишешь примерно следующее:

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

If KeyCode = vbKeyReturn or keyCode = vbKeyExecute then
  KeyCode = 0
End If

Это будет только на форме работать. А глобально через хукер надо. Но как передать системе этот самый 0 ?

[Ennor]

Значит, вешай глобальный хук на событие типа WM_CHAR или какое там оно, не помню. Как вешать хуки, ищи на http://www.rsdn.ru

[mayevskyy]

Плиз, подскажите как правильно послать сообщение WM_KEYDOWN и WM_KEYUP для клавиши ENTER, пожалуйста если можно подробно опишите первый параметр сообщения.

[Unknown Error]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_KEYDOWN = &H100
Private Const VK_RETURN = &HD

...
SendMessage YourWindow.hwnd, WM_KEYDOWN, VK_RETURN, 1
...