hola ando como loco
buscando un codigo que se asimile al sendkeys o modificar
el sendkeys para que envia pulsaciones a una ventana inactiva
osea que este minimizada y poder estar asiendo otra cosa :(
ando como loco buscandoo y no encuentroo nada
me encontre con este codigo:
Código:
Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function SendKeysEx(Ventana As String, Tecla As String, Optional Espera = 0) As Boolean
On Error GoTo error
Dim Ventanita As Long
Ventanita = FindWindow(vbNullString, Ventana)
SetActiveWindow Ventanita
SendKeys Tecla, Espera
SendKeysEx = True
Exit Function
error:
SendKeysEx = False
End Function
Código:
Llamala usando SendKeysEx("Nombredelaventana", "Tecla")
pero no la allo qe funcione si alguien sabe como areglarla o algo pss que me avise
o si alguien se sabe de una api
:(
y e visto algo sobre sendmenssage
pero lo que yo nesesito es hacer que precione una tecla F1,F2,F3...etc
yo uso algo asi:
y en el combo1.text tengo una lista de los F1,F2,F3... etc
y pss me gustaria que el sendkeys osea enviara a una ventana inactiva
osea algo asi
este es un ejemplo de lo ke kiero hacer:
Código:
'SendKeys(Tibia_Hwnd, Combo1.Text)
pero pss el sendkeys no hace eso :(
bueno si alguien me puede ayudar :D
porfavor y gracias