Sub GetUserToken(usercode As String) As ResumableSub
Dim j As HttpJob
j.Initialize("", Me)
j.PostString("https://mywebsite.com...",usercode)
j.GetRequest.SetContentType("application/x-www-form-urlencoded")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log("token = "&j.GetString)
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As Map = parser.NextObject
Dim access_token As String = root.Get("access_token")
Return access_token
End If
j.Release
End Sub