Dim post As Map = CreateMap("u": $"${dData.ServerUserName}"$, "p": $"${dData.ServerPassword}"$, "cmd" : "get")
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize(post)
Dim Job As HttpJob
Job.Initialize("Tablet", Me)
Log(JSONGenerator.ToString)
Job.Username = "tdl-App"
Job.PostString(dData.Server & "/request/tdl.ashx", su.EncodeUrl(JSONGenerator.ToString, "UTF8"))
Job.GetRequest.SetContentType("application/json")
Wait For (Job) JobDone(Job As HttpJob)
If Job.Success Then
....
else
....
end if