B4J Question [SERVER] GET

Sub Handle(req As ServletRequest, resp As ServletResponse)

    
    resp.ContentType = "text/html"

    Dim example As String = req.GetParameter("a")
    ...

...
    srvr.AddHandler("/scan", "scan",  False)
...

Sub Handle(req As ServletRequest, resp As ServletResponse)

  
    resp.ContentType = "text/html"

    Dim example As String = req.GetParameter("a")
    ...

  Sub Handle(req As ServletRequest, resp As ServletResponse)
    'Try
    
        mreq = req
        mresp = resp
        
        
        
        Log("scan")
        
        Log(req.ContentType.SubString(0))
        
        If req.ContentType.StartsWith("application/json") Then
        
            Dim jo As JavaObject = req
            Dim collections As JavaObject
            collections.InitializeStatic("java.util.Collections")
            Dim headers As List = collections.RunMethod("list", Array(jo.RunMethodJO("getHeaderNames", Null)))
            For Each h As String In headers
                Log(h & ": " & req.GetHeader(h))
            Next
        
        
            Try
            
                Dim data() As Byte = Bit.InputStreamToBytes(req.InputStream)
            
                Dim text As String = BytesToString(data, 0, data.Length, "UTF8")

            '    resp.Write(text)
                
                
                Log("texto " & text)
                
                
                Dim parser As JSONParser
                parser.Initialize(text)
                Root1  = parser.NextObject
                Origin = Root1.Get("Origin")
                HostVendor = Root1.Get("Host")
                
                Log ("origen " & Origin)
                Log("Host " & HostVendor)
                
                '****************************************llamar al programa de socket para enviar
          
            
                
                
              [COLOR=rgb(226, 80, 65)] ConnectToServer("192.168.1.100",6680)  '   socket server [/COLOR]
              
                Wait For Client_connected (Successful As Boolean)
              
                [COLOR=rgb(226, 80, 65)]If Successful Then      '  
[/COLOR]
                        At this moment, it has already sent the response 200 OK to the GET request.

                    
                    Log("conectado")
                    
                End If
                
            Catch

                resp.SendError(500, LastException)
                Log("Error")

            End Try
        
        
        
        End If
        
        
        
        
        
    'Log("hola")   
        
        
        
        
        
    
End Sub

Sub Process_Globals

    Public srvr As Server
end sub


Sub AppStart (Form1 As Form, Args() As String)

    srvr.Initialize("srvr")
    srvr.Port = 8888
    srvr.AddHandler("/scan", "scan",  False)

    srvr.Start
end sub

Sub Handle(req As ServletRequest, resp As ServletResponse)

  
    resp.ContentType = "text/html"

    Dim example As String = req.GetParameter("a")
log("example")

Sub Handle(req As ServletRequest, resp As ServletResponse)
   
   
    resp.Write("let' try to run msinfo32 at server... for 2secs...")
   
               
    Sh.Initialize("sh","msinfo32.exe", Null) 
    Sh.WorkingDirectory = "C:\"
    Sh.Run(2000) 'works - run ok for 2 sec...
   
    wait For (Sh) sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    'hmmm that is not working...  for some reason i can't understand --- but never taking logs..

  
   
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")  'never take logs...
        Log(StdOut)
    Else
        Log("Error: " & StdErr)
    End If
   
End Sub

Sh.RunSynchronous(-1)

Sub Handle(req As ServletRequest, Resp As ServletResponse)

    Ejecutar(Resp)

    StartMessageLoop   
    
    Resp.Write("Second")
    
    
End Sub


Sub Ejecutar( Respuesta As ServletResponse)
    
    Sh.Initialize("sh","cmd",Null)
    Sh.WorkingDirectory = "C:\"
    Sh.Run(2000)

    Wait For sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    
    Respuesta.Write("perfecto")
    
    StopMessageLoop
    
End Sub