Dim MyMap as Map
MyMap.Initialize
MyMap.put("Action", "CheckRegister")
MyMap.put("Imei", imei)
MyMap.put("Maill", RegMail.Text)
Dim JSONGenerator As JSONGenerator
JSONGenerator.Initialize2(MyMap)
Dim JSONstring As String
JSONstring = JSONGenerator.ToString
MyLog(JSONstring)
Dim Register As HttpJob
Register.Initialize("Register", Me)
Register.PostString("http://www.xxxx.yyy/register/register.php",JSONstring)