B4J Question Consume Web Service

'That's the access token used in the above documentation. Looks like it is
' already Base64 encoded and ready to be used in an authentication header
Dim accessToken As String = "UCCLLQ9N2ARSHWCXLT74KUKSSK34BFKX"
Dim j As HttpJob
j.Initialize("", Me)
'I'm using https, but the site you're using may not support it (hopefully it does).
' Domain name needs to be whatever you are using and then you may also have
' a subfolder. See above linked docs for more info
j.Download("https://example.com/api/")
'Using the access token as is, since it looks like it is Base64 encoded
' (and the sample in the documentation does it so)
j.GetRequest.SetHeader("Authorization", $"Basic ${accessToken}"$)
'If you don't set the Io-Format to JSON, you will have to deal with XML documents
j.GetRequest.SetHeader("Io-Format", "JSON")
Wait For (j) JobDone(j As HttpJob)
If j.Success = True Then
   'According to the docs, with what we are doing here, you should be getting
   ' "a summary of the available APIs you can call with your access token"
   Log(j.GetString)
Else
   Log(j.ErrorMessage)
End If
j.Release

Sub ReadClientTable
    Dim Job As HttpJob
    Job.Initialize("j1", Me)
    Job.Username = PresUserName
    Job.Download("https://website.xy/api/customers?ws_key=" & PresUserName)
    Job.GetRequest.SetHeader("Authorization", $"Basic ${PresUserName}"$)
    Job.GetRequest.SetHeader("Io-Format", "JSON")
End Sub

Sub JobDone(job As HttpJob)
    If job.Success Then
        Log(job.GetString)
    End If
    job.Release
End Sub

'Make sure you add a colon on the end of your access token!!!!!!
Dim accessToken As String = "UCCLLQ9N2ARSHWCXLT74KUKSSK34BFKX:"
Dim su As StringUtils ' requires StringUtils library to be checked
Dim authInfo As String = su.EncodeBase64(accessToken.GetBytes("UTF8"))
Dim j As HttpJob
j.Initialize("", Me)
'I'm using https, but the site you're using may not support it (hopefully it does).
' Domain name needs to be whatever you are using and then you may also have
' a subfolder. See above linked docs for more info
j.Download("https://example.com/api/")
'Pass along authInfo for authorization (Base64 encoded version of modified access token above)
j.GetRequest.SetHeader("Authorization", $"Basic ${authInfo}"$)
'If you don't set the Io-Format to JSON, you will have to deal with XML documents
j.GetRequest.SetHeader("Io-Format", "JSON")
Wait For (j) JobDone(j As HttpJob)
If j.Success = True Then
   'According to the docs, with what we are doing here, you should be getting
   ' "a summary of the available APIs you can call with your access token"
   Log(j.GetString)
Else
   Log(j.ErrorMessage)
End If
j.Release