Visual Basic - [VB6] Grabar t eclas tipo "macro"

Life is soft - evento anual de software empresarial
   
Vista:

[VB6] Grabar t eclas tipo "macro"

Publicado por Jorge Ruiz (8 intervenciones) el 02/05/2009 07:58:58
Saludos!

Tengo una duda sobre algo que quiero hacer. resulta que quiero hacer algo parecido al "grabar macro" del microsoft excel, pero con algo puntual

resulta que necesito que un programa que tengo, se le presione automaticamente estas teclas: ALT, ABAJO, ENTER, CONTROL+V (O PEGAR DESDE EL CLIPBOARD), ENTER, ALT+ENTER

No se me ocurre como hacerlo, la idea es ejecutar el programa y una vez cargado el programa, se ejecuten esas teclas automaticamente

¿alguna idea? se los agradecería mucho. 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:[VB6] Grabar t eclas tipo

Publicado por Christian (666 intervenciones) el 04/05/2009 00:20:44
Si claro que hay ideas, tendrias que usar API para simular la pulsacion de teclas y lo vas a solucionar sin problemas. hay algo que se llama SendKeys pero la verdad nunca me dio resultado.

http://allapi.mentalis.org/
http://www.solotuweb.com/fs~id~8780.html

'------------------------------------------------------------------
Const VK_H = 72
Const VK_E = 69
Const VK_L = 76
Const VK_O = 79
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_KeyPress(KeyAscii As Integer)
'Print the key on the form
Me.Print Chr$(KeyAscii);
End Sub
Private Sub Form_Paint()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Clear the form
Me.Cls
keybd_event VK_H, 0, 0, 0 ' press H
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0 ' release H
keybd_event VK_E, 0, 0, 0 ' press E
keybd_event VK_E, 0, KEYEVENTF_KEYUP, 0 ' release E
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_O, 0, 0, 0 ' press O
keybd_event VK_O, 0, KEYEVENTF_KEYUP, 0 ' release O
End Sub
-------------------------------------------------------------------------------------

ESPERO HABERTE AYUDADO CUALQUIER COSA ESCRIBIME QUE LO HACEMOS.
SALUDOS
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