Dim j As HttpJob
j.Initialize("", Me)
j.Download("http://calc.futurobursatil.com.ar/xmloc?F=Sxml&S=&Z=1&ES=DICA,AUSO,CAPU,IRSA")
j.GetRequest.SetHeader("Accept-Encoding", "identity") 'add a reference to OkHttp library
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release