Dim response As BANanoFetchResponse
Dim data As String
Dim fo As BANanoFetchOptions
fo.Initialize
fo.Method = "POST"
fo.Body = BANano.ToJson(CreateMap("q":"Conect","p":Array(),"l":0))
' list (GET is default, and we do not need extra options so we pass Null for the options)
Dim fetch As BANanoFetch
fetch.Initialize("http://rocas.noip.us/tmx",fo)
fetch.Then(response)
' we got a response, but as the Json() method returns a Promise, we will need to process it in the next 'then' so we return it to this Fetch
fetch.Return(response.Text)
fetch.Then(data)
' the Json promise is resolved, lets log it...
Log(data)
fetch.End