Sub AppStart (Args() As String)
Dim sh As Shell
sh.Initialize("sh", "python", Array As String("gpio.py", "w", "B4J is", "great"))
sh.WorkingDirectory = "/home/"
sh.Run(10000)
StartMessageLoop
End Sub
Sub sh_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