Dim Mensaje As JSONGenerator
Dim credentials As Map
credentials.initialize
' credentials.Put("domainId","")
credentials.Put("login","NpPlusOneUser@gmail.com")
credentials.Put("passwd","562389784512")
Mensaje.Initialize(credentials)
Dim Job As HttpJob
Dim urlx As String="http://www.ultra.net/apirest/ws/"
Job.Initialize("job", Me)
Job.PostString(urlx,Mensaje.ToString)
Job.GetRequest.Timeout = DateTime.TicksPerSecond * 45
Job.GetRequest.SetHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:19.0) Gecko/20100101 Firefox/70.0")
Job.GetRequest.SetContentType("application/json;charset=UTF-8")
Log( "Enviando a server..." )