Sub btnStartServer_Click
If ServerStarted = False Then
sh.Initialize("sh", "java" , Array As String("-jar", "C:\Dropbox\B4x\CrossPlatform\Beeps\Server\Objects\BeepsServer.jar"))
sh.Run(-1)
ServerStarted = True
SetButtons(ServerStarted)
End If
End Sub
Sub sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log($"sh_ProcessCompleted:${Success}, ${ExitCode}"$ )
If Success And ExitCode = 0 Then
Log(StdOut)
btnShowAll_Action 'show existing data
ServerStarted = True
SetButtons(ServerStarted)
Else
Log("sh_ProcessCompleted:Error: " & StdErr)
End If
End Sub