Dim Subscriptiondetailsm As Map
Subscriptiondetailsm.Initialize
Subscriptiondetailsm.put("account","098866")
Subscriptiondetailsm.put("Phone","0782911364")
Dim json As JSONGenerator
json.Initialize(Subscriptiondetailsm)
Dim contentr As String = json.ToString
'Depends on okHttputils library
Dim clientb As HttpJob
clientb.Initialize("",Me)
clientb.PostString("http://192.168.1.205/KABOJJAAPPAPI/API/RecieveSMS",contentr)
clientb.GetRequest.SetContentType("application/json") 'set the header as json
clientb.GetRequest.SetContentEncoding("UTF8")
Wait For Jobdone(clientb As HttpJob)
If clientb.Success Then
Dim Resultd As String = clientb.GetString
Dim data As JSONParser
data.Initialize(Resultd)
'
'Dim product As Map = data.NextObject
End If