Sub getToken() As ResumableSub
Dim j As HttpJob
j.Initialize("", Me)
lblLast.Text=""
logJK(url_login)
j.PostString(url_login,"password=xxxxxxxxxxx")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As Map = parser.NextObject
Dim token As String = root.Get("token")
If token<>"" Then
logJK("Token erhalten")
lblLast.Text=token
Else
logJK(j.GetString)
End If
End If
j.Release
Return 1