Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: TiITOo en Marzo 03, 2013, 07:57:56 pm
-
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 !!!
-
Hola, no tengo formas de probar pero haver si funciona con algunas de estas
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
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 )
-
Muchas Gracias Leo.. !!
Lamentablemente Sigue sin Funcionar ...
Te Agradezco la Buena onda!!