ayuda ya casi lo tengo

miguel
11 de Diciembre del 2003
cree un formulario con 1 boton al pulsar el boton hara lo siguiente


Shell "c:a.exe" esto me abre una aplicacion k tengo cuyo codigo fuente no poseeo y es de vital importancia dicha aplicacion tiene 1 ventana de texto.


For i = 1 To 10
SendKeys i
Next i
estas lineas intentam escribir los numeros del 1 al 10 en dicha aplicacion abierta perooooooo como la aplicacion no tiene el foco en la ventana de texto no funciona como pongo el foco en 1 aplicacion k no es mia????????????

Observador
11 de Diciembre del 2003
Utiliza la instruccion AppActivate... mira copea el sigueinte ejemplo para que te des cuenta...

Private Sub Command1_Click()
Dim ReturnValue As Long
Dim I As Integer

ReturnValue = Shell("CALC.EXE", 1) ' Ejecuta la Calculadora.
AppActivate ReturnValue ' Activa la Calculadora.
For I = 1 To 10 ' 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.
End Sub

Hasta pronto...

http://puntovisualbasic.webcindario.com/

Thessen
11 de Diciembre del 2003
Puedes mandar teclas ( flechas, tabuladores, ... ) a la segunda aplicacion para posicionarla en la ventana de texto desde tu programa. Es mas o menos una chapuza, pero funcionará.