Public Sub GetURL(URL As String, Parameters() As String) As ResumableSub
Dim mResult As Map
Dim j As HttpJob
Try
j.Initialize("", Me)
j.Download2(URL, Parameters)
j.GetRequest.Timeout = 60 * DateTime.TicksPerSecond 'time 60 second
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
mResult = CreateMap("Status" : j.Response.StatusCode, "Message" : "Ok" )
Else
mResult = CreateMap("Status" : j.Response.StatusCode, "Message" : "Error " & j.Response.ErrorResponse )
End If
Catch
Log(LastException)
End Try
j.Release
Return mResult.As(JSON).ToString
End Sub