Как послать нажатие клавиш в другую прогу?

[A.A.Z.]

Короче говоря, я делаю небольшой трейнер, который, когда, допустим, нажимаешь на F5, набирает, там, код на бессмертие. Через SendKeys не получается - когда прога активна - всё нормально, а когда не активна - ничего не происходит. Хочу попробовать через SendMessage - да вот только не помню, как. Подскажите, плиз, или может кто какой-то другой способ знает?..

[A.A.Z.]

Сорри, но я буду тему вверх тащить - очень ответ нужен!! Просто срочно!!
Неужели никто не знает??

[A.A.Z.]

UP

[Amed]

Попробуй через keybd_event - я делал трейнер к Heroes II - "32765" давало 5 чёрных драконов, и я реших их наплодить

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const KEYEVENTF_EXTENDEDKEY = &H1

'У таймера период любой, я ставил ~50

Private Sub Timer1_Timer()
'IDDQD даёт бессмертие
If GetAsyncKeyState(vbKeyF5) < 0 Then
Timer1.Enabled = False
keybd_event vbKeyI, 0, KEYEVENTF_EXTENDEDKEY, 0
DoEvents
keybd_event vbKeyD, 0, KEYEVENTF_EXTENDEDKEY, 0
DoEvents
keybd_event vbKeyD, 0, KEYEVENTF_EXTENDEDKEY, 0
DoEvents
keybd_event vbKeyQ, 0, KEYEVENTF_EXTENDEDKEY, 0
DoEvents
keybd_event vbKeyD, 0, KEYEVENTF_EXTENDEDKEY, 0
DoEvents
Timer1.Enabled = True
End If
End Sub

[A.A.Z.]

Спсаибо за ответ, попробую!

[A.A.Z.]

Thanks a LOT!!!

[Amed]

Не за что!:mrgreen::mrgreen: