Dim lst As Map
lst.Initialize
lst.Put("TXNCode","TXN_LOGIN_L001")
lst.Put("MerchantUserID",txt_UserID.Text)
lst.Put("UserPwd",txt_Password.Text)
lst.Put("DevicePlatform","Andriod")
lst.Put("TerminalSN",Main.SelectedDeviceName)
lst.Put("TerminalID",Main.SelectedDeviceMac)
lst.Put("DeviceID",Main.PhoneMac)
lst.Put("Latitude",Lat)
lst.Put("Longitude",Logt)
lst.Put("MAC","")
lst.Put("EMSK","")
lst.Put("KSN4MSK","")
lst.Put("ECSK","")
lst.Put("KSN4CSK","")
Dim MyJson As JSONGenerator
MyJson.Initialize(lst)
Log(MyJson.ToString)
job1.Initialize("job1", Me)
job1.Download2("http://125.227.11.94/services/MyTranService.svc/Login", Array As String("string", MyJson.ToString))