B4J Question how to get data from a web page

    Dim j As HttpJob
        j.Initialize("",Me)
        j.PostString("https://" & Main.url & "/endpoint",$"
            {
                "id": "${group}",
                "files": [
                    "${file1}"
                   ,"${file2}"
                ]
            }       
        "$ _
        )
    
        Wait For JobDone(job As HttpJob)

        If job.Success Then
            If job.Response.StatusCode = 200 Then
                log("YaY")
            end if
        end if

private Sub getlist As ResumableSub
    Private job As HttpJob
    Private retn As List
  
    retn.Initialize
    job.Initialize("",Me)
    job.download("ecommerce.complab.cloud/trova/sar")
'    job.GetRequest.SetHeader("accept","application/json") you may need this.

  
    Wait For (job) JobDone(job As HttpJob)
  
    If job.Success Then
        Private retn As String = job.GetString
        Private jp As JSONParser
      
        Try
            jp.Initialize(job.GetString)
            retn = jp.NextArray         
        Catch
            Log("the return was not an array ",lastexception.message)
        End Try
    Else
        Log("there was an error of some sort" & job.ErrorMessage)     
    End If
  
    job.Release
    Return retn
  
End Sub

Public Sub TestGetSarApiURL
   
    '---- GET method types ---
   
    Dim BaseUrl As String = "https://my api web"
   
    'Option 1:  without parameters
    Wait For (GetSarApiURL1(BaseUrl)) Complete (Result As String)
    Log(Result)
   
    'Option 2: with Parameters
    Dim Parameters() As String = Array As String ("Parameter1", "Value 1", "Parameter2", "value 2")
    Wait For (GetSarApiURL2(BaseUrl, Parameters)) Complete (Result As String)
    Log(Result)
   
End Sub

Public Sub GetSarApiURL1(URL As String ) As ResumableSub
    Dim ResultURL As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download(URL)
        j.GetRequest.SetHeader("Content-Type","application/json") 'Opcional: if return JSON
        Wait For (j) JobDone(j As HttpJob)
        If j.Success Then
            ResultURL = j.GetString
        Else
            Log(j.ErrorMessage)
        End If
    Catch
        Log(LastException)
    End Try
    j.Release
    Return ResultURL
End Sub

Public Sub GetSarApiURL2(URL As String, Parameters() As String) As ResumableSub
    Dim ResultURL As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download2(URL, Parameters)
        j.GetRequest.SetHeader("Content-Type","application/json") 'Opcional: if return JSON
        Wait For (j) JobDone(j As HttpJob)
        If j.Success Then
            ResultURL = j.GetString
        Else
            Log(j.ErrorMessage)
        End If
    Catch
        Log(LastException)
    End Try
    j.Release
    Return ResultURL
End Sub