Visual Basic - Abrir una aplicación

Life is soft - evento anual de software empresarial
 
Vista:

Abrir una aplicación

Publicado por Roberto (39 intervenciones) el 25/08/2003 15:23:11
Estoy realizando una aplicación para traspasar continuamente facturas de una programa de facturación a otro de contabilidad. Es por las tablas de access que ambos usan. Pero para que me realice determinados calculos el programa de contabilidad, necesito ejecutarle, pasarle el foco y enviarle tres teclas desde mi aplicación. El problema es que al ejecutarle debo esperar a que esté abierto para que se envien las teclas. Podríais ayudarme. 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:Abrir una aplicación

Publicado por Juan (284 intervenciones) el 25/08/2003 15:39:35
Puedes ejecutarlo con la función Shell, pasarle el foco con la instrucción AppActivate y enviarle pulsaciones de tecla con SendKeys.

Aqui tienes el ejemplo que viene con la ayuda:

Dim ReturnValue, I
ReturnValue = Shell("calc.exe", 1) ' Ejecuta la Calculadora.
AppActivate ReturnValue ' Activa la Calculadora.
For I = 1 To 100 ' Establece un bucle contador.
SendKeys I & "{+}", True ' Envía pulsaciones a la Calculadora
Next I ' para sumar cada valor de I.
SendKeys "=", True ' Obtiene el total general.
SendKeys "%{F4}", True ' Envía ALT+F4 para cerrar la Calculadora.

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