Sub Runsocketws
'Return
Dim javaexe As String
javaexe = File.Combine(GetSystemProperty("java.home", ""), "bin/java")
shws.Initialize("shws", javaexe, Array ("-jar", "GW_Web.jar"))
shws.WorkingDirectory = File.DirApp & "\GW_Web"
socketopen = True
shws.Run(-1)
NotificaShow("", "Web Socket avviato!", "none", 2000, True)
End Sub
Sub shws_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
If Success = False Or StdErr.IndexOf("Unable to access") > -1 Then
socketopen = False
NotificaShow("", "Web Socket chiuso!", "none", 2000, True)
End If
End Sub