I already Run the aplication.exe i wanted to run with jShell, know i want to rite some commands so that they are automatically done in the aplication I opend.
Is there a way to do this? if so How?
the Code to run the app is:
Is there a way to do this? if so How?
the Code to run the app is:
B4X:
Sub btnRun_MouseClicked (EventData As MouseEvent)
Dim xfoil As Shell
Dim params As List
Dim FileRun As String
params.Initialize
params.Add(File.DirApp)
params.Add("Load naca0015.txt")
FileRun= File.Combine(File.DirApp& "\Xfoil", "xfoil.exe")
Log(FileRun)
'
' xfoil.Initialize("xfoil",FileRun, Null)
xfoil.Initialize("xfoil",FileRun, params)
xfoil.WorkingDirectory = File.DirApp
xfoil.Run(-1)
End Sub
Sub xfoil_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success And ExitCode = 0 Then
Log("Success")
Log(StdOut)
Else
Log("Error: " & StdErr)
End If
ExitApplication
End Sub