Dim JSON As JSONGenerator
Dim m As Map = CreateMap("email":Email,"password":Password,"returnSecureToken":True)
JSON.Initialize(m)
Dim data As String = JSON.ToPrettyString(1)
Log(data)
Log(Email)
Log(Password)
job.Initialize("job",Me)
Dim link As String ="https://identitytoolkit.googleapis.com/v1/accounts:signInWithPassword?key=XXXXXXXX-XXXXXXXXXXXXXXXXX"
str = job.PostString(link,data)
' job.GetRequest.SetContentType("application/json")
job.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:25.0) Gecko/20100101 Firefox/25.0")
Log ("str:= " & str)
If issingUp Then
ToastMessageShow(str,True)
End If