vb llama a la entrada del teclado SendKeys

Código fuente para llamar a Flac3d.exe en VB:

Private Sub Command1_Click()

'Define el valor que se devolverá al abrir Flac

Dim Flac As Long

'Llamar a Flac3d en VB

Flac = Shell("E:\Toolbox\FLAC 3D\flac3d v3.00-251\Flac3d v3.00\f3d300.exe", vbNormalFocus )

' Activa Flac para enfocar su ventana

'AppActivate Flac

' Usa código para simular la entrada del teclado

' Presione la tecla Intro dada la calculadora

SendKeys "{Enter}", True

' SendKeys "generación de bloques de zona", True

' SendKeys "{Enter}" , True

' SendKeys "superficie de trazado", True

' SendKeys "{Enter}", True

' Flujo de comando de llamada

SendKeys "llamar F. VBwork test:\test.dat", True

Enviar claves "{Enter}", Verdadero

End Sub

test.dat:

restaurar tcav3.sav

llamar a stable.dat

stable.test.dat:

;; Mostrar cambios en la fuerza axial del soporte

Dibujar histograma 7

; ;Excavación de la cuarta capa

modelo null ran group pcav4

;;Programa de evaluación de estabilidad de soporte

;;Leer los datos y transferirlos al archivo c:ccav3 .sav

llamar a stable.dat