jsondata.Initialize
jsondata.Clear
jsondata.Put("action","newdevice")
jsondata.Put("androidid",androidid)
jsondata.Put("model",model)
sendreq("https://myDomain.com",jsonen(jsondata))
Sub jsonen(data As Map) As String
json.Initialize(data)
Return json.ToString
End Sub
Sub sendreq(url As String,data As String)
ht.Initialize("",Me)
ht.PostString(url,data)
ht.Release
End Sub