Sub btnInstallTomCat_Click
Dim aFile As String = File.DirApp & "\" & mFolderDownload & "\" & mFileExeTomCat
Dim shl As Shell
'shl.Initialize("shl",aFile, Null)
shl.Initialize("shl", aFile , Array As String("-jar")) ', "Server_report.jar"))
shl.WorkingDirectory = File.DirApp & "\" & mFolderDownload & "\"
shl.Run(1000) 'set a timeout of 10 seconds
End Sub
Sub shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log($"SSH_CmdExecuted at ${DateTime.Time(DateTime.Now)}: "$)
Log("Success " & Success)
Log("exit code " & ExitCode)
Log("Stdout " & StdOut)
Log("strerr " & StdErr)
End Sub