Dim gen As JSONGenerator
Dim L1 As List
Dim M1 As Map
Dim JSONstring As String
L1.Initialize
Try
M1.Initialize
M1.Put("Hp", "08123456")
M1.Put("Pin", "12345")
L1.Add(M1)
gen.Initialize2(L1)
JSONstring=gen.ToString
Dim job As HttpJob
job.Initialize("login" , Me)
Dim S As String = "http://192.168.5.80:9090/v1.0/Login/GetLogin"
job.PostString(s , JSONstring)
job.GetRequest.SetContentType("application/x-www-form-urlencoded")
job.GetRequest.SetContentType("application/json")
wait for (job) JobDone (job As HttpJob)
Dim Map1 As Map
Dim JSON As JSONParser
Map1.Initialize
Catch
Log(LastException)
End Try