Public Sub ReadData(LinkSuffix As String, Token As String,RequestTag As String)
Dim hj As HttpJob
hj.Initialize("readdata",Me)
hj.Tag = RequestTag
Dim RequestURL As String = BaseURL & LinkSuffix & ".json"
If Not(Token = "") Then
RequestURL = RequestURL & "?auth=" & Token
End If
hj.Download(RequestURL)
Wait For (hj) JobDone(hj As HttpJob)
If hj.Success Then
Dim parser As JSONParser
parser.Initialize(hj.GetString)
Dim root As Map = parser.NextObject
End Sub