Sub main
Wait For(api.requestsomething(link,token)) Complete (resp As Map)
End sub
Public Sub requestsomething(link As String, token As String) As ResumableSub
Dim resp As Map
resp.Initialize
resp.Put("success",False)
Dim j As HttpJob
j.Initialize("", Me)
j.Download2(link,Array As String("param","1"))
j.GetRequest.SetHeader("Authorization", token)
j.GetRequest.Timeout = 10000
Wait For (j) JobDone(j As HttpJob)
resp.Put("success",j.Success)
If j.Success Then
resp.Put("data",j.GetString)
End If
j.Release
Return resp
End Sub
