Enviar SendMessage un Juego Counter-Strike

[TiITOo]

Buenas, si alguin me puede ayudar en mi problema le agradeceria.
He intentado simular la pulsacion del teclado y enviarselo a la Consola de CS, lo intente de la siguiente manera

Dim hWindow as long

   hWindow = FindWindow("half-life", vbNullString)
   hParent = GetParent(hWindow )

   Call SendMessage(hWindow, EM_GETLINE, 13, ByVal CStr("say Hola"))
   Call SendMessage(hParent, WM_CHAR, 13, ByVal CStr("say Hola"))

el SendKeys "say Holaaaa" Tampoco Funciona.
He leido que se debe a que los Juegos al Utilizar el DirectX, no se puede mediante la API de Windows.-

Gracias !!!

[LeandroA]

Hola, no tengo formas de probar pero haver si funciona con algunas de estas

Código: (Vb) [Seleccionar]

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_IME_CHAR As Long = &H286

Private Function SetWindowTextEx(hwnd As Long, Text As String)
    Dim i As Integer
    Dim Key As Integer
    For i = 1 To Len(Text)
        Key = Asc(Mid(Text, i, 1))
        Call SendMessageLong(hwnd, WM_IME_CHAR, Key, 0)
    Next
End Function

Código: (Vb) [Seleccionar]

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_IME_KEYDOWN            As Long = &H290


Private Function SetWindowTextEx(hwnd As Long, Text As String)
    Dim i As Integer
    Dim Key As Integer
    For i = 1 To Len(Text)
        Key = Asc(Mid(Text, i, 1))
        Call PostMessage(hwnd, WM_IME_KEYDOWN, Key, 0&)
    Next
End Function
PD: tengo mi duda si estas obteniendo bien el hwnd,  creo que esto esta mal o de mas, hParent = GetParent(hWindow )

[TiITOo]

Muchas Gracias Leo.. !!

Lamentablemente Sigue sin Funcionar ...

Te Agradezco la Buena onda!!