Module KeySend2
 
    'Hwnd ermitteln
    Private Declare Function GetForegroundWindow Lib "user32" () As Long
 
    'Senden von Tasten
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam _
    As Long) As Long
    Const WM_KEYDOWN = &H100
    Const WM_KEYUP = &H101
    Const WM_CHAR = &H102
 
 
    Public Sub KeySend()
 
        Dim hWnd As Long
        Dim zwparam As Long = 1
        Dim strTasteUp As String
        Dim strTaste As String
 
 
        'hWnd ermitteln
        hWnd = GetForegroundWindow
 
        'Tasten
        strTaste = &H49
        strTasteUp = &H49
 
        'Taste drücken
        PostMessage(hWnd, WM_KEYDOWN, zwparam, strTaste)
 
        PostMessage(hWnd, WM_CHAR, zwparam, strTaste)
 
        'Taste loslassen
        PostMessage(hWnd, WM_KEYUP, zwparam, strTasteUp)
 
    End Sub
 
End Module