Имитация нажатия клавиши Tab в стороннем приложении (игре)

Private Sub Timer1_Timer()
Call keybd_event(VK_TAB, 0, 0, 0)
End Sub

SendKeys "{TAB}", True

Option Explicit
 
Implements DirectXEvent8
 
Dim dx      As DirectX8
Dim di      As DirectInput8
Dim dev     As DirectInputDevice8
Dim hEvent  As Long
Dim diProp  As DIPROPLONG
Dim key()   As DIDEVICEOBJECTDATA
Dim map     As Variant
 
Private Const MAPVK_VSC_TO_VK = 1
 
Private Sub cmdClear_Click()
    lstKeys.Clear
End Sub
 
Private Sub DirectXEvent8_DXCallback(ByVal eventid As Long)
    If eventid = hEvent Then
        Dim count   As Long
        Dim index   As Long
        Dim keyName As String
        
        count = dev.GetDeviceData(key(), DIGDD_DEFAULT)
        
        For index = 0 To count - 1
            
            If key(index).lData And &H80 Then
                keyName = map(key(index).lOfs) & " up"
            Else
                keyName = map(key(index).lOfs) & " press"
            End If
            
            lstKeys.AddItem keyName
            lstKeys.ListIndex = lstKeys.NewIndex
        Next
        
    End If
End Sub
 
Private Sub Form_Load()
    Set dx = New DirectX8
    Set di = dx.DirectInputCreate()
 
    Set dev = di.CreateDevice("GUID_SysKeyboard")
    
    dev.SetCommonDataFormat DIFORMAT_KEYBOARD
    dev.SetCooperativeLevel hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE
 
    hEvent = dx.CreateEvent(Me)
    dev.SetEventNotification hEvent
    
    diProp.lHow = DIPH_DEVICE
    diProp.lData = 40
    
    ReDim key(39)
    CreateMap
    
    dev.SetProperty "DIPROP_BUFFERSIZE", diProp
    
    dev.Acquire
    
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    dev.Unacquire
    Set dev = Nothing
    Set di = Nothing
    Set dx = Nothing
End Sub
 
Private Sub CreateMap()
    map = Array("", "ESCAPE", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "MINUS", "EQUALS", "BACKSPACE", _
                "TAB", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "LBRACKET", "RBRACKET", "RETURN", "LCONTROL", _
                "A", "S", "D", "F", "G", "H", "J", "K", "L", "SEMICOLON", "APOSTROPHE", "GRAVE", "LSHIFT", "BACKSLASH", "Z", _
                "X", "C", "V", "B", "N", "M", "COMMA", "PERIOD", "SLASH", "RSHIFT", "NUMPADSTAR", "LALT", "SPACE", "CAPSLOCK", "F1", _
                "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "NUMLOCK", "SCROLL", "NUMPAD7", "NUMPAD8", "NUMPAD9", "NUMPADMINUS", _
                "NUMPAD4", "NUMPAD5", "NUMPAD6", "NUMPADPLUS", "NUMPAD1", "NUMPAD2", "NUMPAD3", "NUMPAD0", "NUMPADPERIOD", "", "", "OEM_102", "F11", "F12", "", _
                "", "", "", "", "", "", "", "", "", "", "F13", "F14", "F15", "", "", _
                "", "", "", "", "", "", "", "KANA", "", "", "ABNT_C1", "", "", "", "", _
                "", "CONVERT", "", "NOCONVERT", "", "YEN", "ABNT_C2", "", "", "", "", "", "", "", "", _
                "", "", "", "", "", "", "NUMPADEQUALS", "", "", "PREVTRACK", "AT", "COLON", "UNDERLINE", "KANJI", "STOP", _
                "AX", "UNLABELED", "", "NEXTTRACK", "", "", "NUMPADENTER", "RCONTROL", "", "", "MUTE", "CALCULATOR", "PLAYPAUSE", "", "MEDIASTOP", _
                "", "", "", "", "", "", "", "", "", "VOLUMEDOWN", "", "VOLUMEUP", "", "WEBHOME", "NUMPADCOMMA", _
                "", "NUMPADSLASH", "", "SYSRQ", "RALT", "", "", "", "", "", "", "", "", "", "", _
                "", "", "PAUSE", "", "HOME", "UPARROW", "PGUP", "", "LEFTARROW", "", "RIGHTARROW", "", "END", "DOWNARROW", "PGDN", _
                "INSERT", "DELETE", "", "", "", "", "", "", "", "LWIN", "RWIN", "APPS", "POWER", "SLEEP", "", _
                "", "", "WAKE", "", "WEBSEARCH", "WEBFAVORITES", "WEBREFRESH", "WEBSTOP", "WEBFORWARD", "WEBBACK", "MYCOMPUTER", "MAIL", "MEDIASELECT", "", "", _
                "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
End Sub
 
Private Sub lstKeys_KeyDown(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub
 
Private Sub lstKeys_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Function GetPressedKey() As String
For schetchik = 32 To 128
If GetAsyncKeyState(schetchik) <> 0 Then
GetPressedKey = Chr$(schetchik)
Exit For
End If
Next
End Function

Dim i As Single
Dim j As Single
Call keybd_event(temp, MapVirtualKey(temp, 0), 0, 0)
For i = 1 To 800
For j = 1 To 800
Next
Next
Call keybd_event(temp, MapVirtualKey(temp, 0), KEYEVENTF_KEYUP, 0)
For i = 1 To 800
For j = 1 To 800
Next
Next

Private Declare Function apiAttachThreadInput Lib "user32" Alias "AttachThreadInput" (ByVal idThreadAttach As Int32, ByVal idThreadAttachTo As Int32, ByVal fAttach As Int32) As Int32

Private Declare Function apiGetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Int32, ByRef lpdwProcessId As Int32) As Int32