Sub Button1_Click
xui.MsgboxAsync("Hello Process World!", "B4X")
Dim shl As Shell
shl.Initialize("shl", "jps.exe", Array As String("-l"))
shl.Run(10000) 'set a timeout of 10 seconds
End Sub
Sub shl_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
End Sub