Dim j As HttpJob
j.Initialize("", Me)
j.PostString("http://248.10.10.127:81/",consultar)
j.GetRequest.SetHeader("Login",Xlogin)
j.GetRequest.SetHeader("PassWord",Xpassword)
j.GetRequest.SetContentType("application/json")
j.GetRequest.SetContentEncoding("UTF-8")
Log(j.GetString)