Dim response As BANanoFetchResponse
Dim error As BANanoObject
Dim data As BANanoJSONParser
Dim UserName As String = "myUserName"
Dim Password As String = "myPassword"
Dim options As BANanoFetchOptions
options.Initialize
options.Method = "GET"
options.Headers = CreateMap("Authorization": "Basic " & BANano.ToBase64(UserName & ":" & Password))
Dim fetch As BANanoFetch
fetch.Initialize("https://myserver.com/basic-auth", options)
fetch.Then(response)
fetch.Return(response.json )
fetch.Then(data)
Log(data)
fetch.Else(error)
Log(error)
fetch.End