Visual Basic - Send Key con API

Life is soft - evento anual de software empresarial
 
Vista:

Send Key con API

Publicado por Mariano Blua (5 intervenciones) el 27/05/2004 05:15:03
Gente, necesitaria saber como hacer para enviarle una tecla a una aplicacion minimizada. Imagino que es con algun api porque con sendkey no puedo mas que enviarle a una aplicacion en la cual tengo el foco puesto.

Desde ya, muchas gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Send Key con API

Publicado por Cecilia Colalongo (3116 intervenciones) el 27/05/2004 22:21:20
Tendrías que utiizar primero BringWindowToTop y luego keybd_event y primero localizar la ventana con FindWindow:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Dim lngHwnd As Long, strProv As String, i As Long


Shell "notepad"

Sleep 30000

lngHwnd = FindWindow("Notepad", "Untitled - Notepad")

BringWindowToTop lngHwnd

strProv = "Hola"

For i = 1 To Len(strProv)
keybd_event Asc(Mid(strProv, i, 1)), 0, 0, 0
keybd_event Asc(Mid(strProv, i, 1)), 0, KEYEVENTF_KEYUP, 0
Next i
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar