Sub AddTask
Dim j As HttpJob
j.Initialize("", Me) 'name is empty as it is no longer needed
j.GetRequest.SetHeader("X-Authorization","Bearer " & Pass)
j.Download("http://192.168.1.136/peru/api/?action=add&object=tareas&descripcion=PRUEBA DE METER&fecha='2019-04-17'&asignada='SI'&completada='NO'")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log("Añadido con éxito: " & j.GetString)
End If
j.Release
End Sub