ublic Sub TESTGetURLWithParmeters
Dim Link As String = "My URL....."
Dim Parameters() As String = Array As String ("Key1","Value1","Key2","Value2")
Wait For (GetURLWithParmeters(Link, Parameters)) Complete (DataResult As String)
Log(DataResult)
End Sub
Public Sub GetURLWithParmeters(Link As String, Parameters() As String) As ResumableSub
Dim Result As String
Dim j As HttpJob
Try
j.Initialize("", Me)
j.Download2(Link, Parameters)
j.GetRequest.SetHeader("Content-Type","application/json")
j.GetRequest.Timeout = 60000
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Result = j.GetString
End If
Catch
Log(LastException)
End Try
j.Release
Return Result
End Sub