Имитация нажатия кнопок в игре

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) 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 Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
 
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const SW_SHOWNORMAL = 1
 
Dim i, n As Integer
Dim MyStr As String
Dim FHWND, X, Y As Long
 
 Private Sub Timer1_Timer()
    AppActivate MyStr
 
i = i + 1
 
If n = 25 Then
Call keybd_event(&H51, 0, 0, 0)
Call keybd_event(&H51, 0, 2, 0)
Timer1 = False
Beep
End
End If
 
If i = 1 Then
     FHWND = GetForegroundWindow()
    MyStr = String(GetWindowTextLength(FHWND) + 1, Chr$(0))
    GetWindowText FHWND, MyStr, Len(MyStr)
    AppActivate MyStr, 2000
SendKeys "{Right 1}"
Call keybd_event(&H25, 0, 0, 0)
Call keybd_event(&H25, 0, 2, 0)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
End If
SendKeys "{ENTER 2}"
If i = 2 Then
     FHWND = GetForegroundWindow()
    MyStr = String(GetWindowTextLength(FHWND) + 1, Chr$(0))
    GetWindowText FHWND, MyStr, Len(MyStr)
    AppActivate MyStr, 2000
Call keybd_event(&HD, 0, 0, 0)
Call keybd_event(&HD, 0, 2, 0)
 
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End If
 
If i = 3 Then
     FHWND = GetForegroundWindow()
    MyStr = String(GetWindowTextLength(FHWND) + 1, Chr$(0))
    GetWindowText FHWND, MyStr, Len(MyStr)
    AppActivate MyStr, 2000
SendKeys "{ENTER 1}"
End If
 
If i = 4 Then
     FHWND = GetForegroundWindow()
    MyStr = String(GetWindowTextLength(FHWND) + 1, Chr$(0))
    GetWindowText FHWND, MyStr, Len(MyStr)
    AppActivate MyStr, 2000
Call keybd_event(&H27, 0, 0, 0)
Call keybd_event(&H27, 0, 2, 0)
i = 0
n = n + 1
End If
 
End Sub
 
Private Sub Form_Load()
    Call Shell("D:\Games\Need for Speed - Most Wanted\speed.exe", vbMaximizedFocus)
    'Call Shell("notepad.exe", vbMaximizedFocus)
    
    'WinExec "D:\Games\Need for Speed - Most Wanted\speed.exe", SW_SHOWNORMAL
    
    
     FHWND = GetForegroundWindow()
    MyStr = String(GetWindowTextLength(FHWND) + 1, Chr$(0))
    GetWindowText FHWND, MyStr, Len(MyStr)
    AppActivate MyStr, 2000
    
    X = 400
    Y = 300
    Call SetCursorPos(X, Y)
End Sub