Как эмулировать глобально нажатие клавиши?

[Space]

SetKeyboardState устанавливает нажатые клавиши для текущего приложения, а как эмулировать глобально нажатие клавиши, чтобы GetAsyncKeyState получало эмулированную нажатую клавишу?

[karlex]

Может keyb_event?

[JohnK]

Глобальный вопрос: зачем?

[Space]

чтобы обмануть GetAsyncKeyState

[JohnK]

А зачем дурить? Все зависит от поставленной задачи. Какая стоит задача? Возможно есть другие способы, более простые. Возможно подойдет сабклассинг конкретного окна.

[Space]

не подойдёт

[karlex]

Глобальный вопрос: зачем?

Например удаленное управление рабочим столом.

[JohnK]

karlex
Ну я не обладаю телепатией. Автор топика не сказал для чего.

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

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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command1_Click()
    Dim handle as long
    handle = FindWindow(vbNullString, "Заголовок окна")
    SetForegroundWindow (handle)
    keybd_event vbKeyF6, 0, 0, 0
    keybd_event vbKeyF6, 0, 2, 0
End Sub

[Saturn.65]

В тему или нет попал -не знаю. Просто надо определенной кнопке на форме присвоить клавишу на клавиатуре, чтоб Enter нажал и Command1_Click сработала. Фокус то получает через Tab, а вот как нажать? Или это надо через меню делать? Но там клавиши Enter нет.

[Space]

Command1.Default=True