Открыть программу(игру) и нажать на клавишу

[eldar22]

Здравствуйте!
Есть код

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowsName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal cCmdShow As Long) As Long
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Dim lFoundWindow As Long
lFoundWindow = FindWindow(vbNullString, "Counter-Strike")
Call SetForegroundWindow(lFoundWindow)
Call ShowWindow(lFoundWindow, 9)
Call ShowWindow(lFoundWindow, 10)

Const VK_esc = 27


keybd_event VK_esc, 0, 0, 0   ' press esc
   
End Sub

По идеи программа должна найти заголовок игры Counter-Strike открыть ее и нажать на кнопку Esc
Программа находит окно открывает его, но не нажимает кнопку Esc

[Хакер]

Вся это идея с открыванием приложений и эмуляции нажатий клавиш с помощью kebd_event — гадость.

[Saturn.65]

Программа находит окно открывает его, но не нажимает кнопку Esc

Может у клавиши фокуса нет?

[ExiliM]

для чего именно посылается Esc? Она ж просто менюшку откроет...

[eldar22]

так кнопку Esc для примера

[eldar22]

Вся это идея с открыванием приложений и эмуляции нажатий клавиш с помощью kebd_event — гадость.

Простите каким тогда методом с помощью чего сделать чтобы это не казалось гадостью?

[Хакер]

Что сделать?

[eldar22]

Ответ нашел через SendKeys работает

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowsName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal cCmdShow As Long) As Long
Private Sub Command1_Click()
Dim lFoundWindow As Long
lFoundWindow = FindWindow(vbNullString, "Counter-Strike")
Call SetForegroundWindow(lFoundWindow)
Call ShowWindow(lFoundWindow, 9)
Call ShowWindow(lFoundWindow, 10)         
       
SendKeys "{ESC}", True           

End Sub


Спасибо Хакер!