Que tal ci2000
Va el ejemplo, usa algún convertidor de C# a VB.Net
Código C#:
Ver original//Url del Servicio REST (sustituye por tu URL)
var url = @"http://localhost/RestWebService";
var httpWebRequest = (HttpWebRequest)HttpWebRequest.Create(url);
httpWebRequest.ContentType = "application/json";
httpWebRequest.Method = "POST";
httpWebRequest.Timeout = 600000;
using (var streamWriter = new StreamWriter(httpWebRequest.GetRequestStream()))
{
//Yo aqui armo el Json de manera manual, pero si tu ya lo tienes en archivo, seria cosa de leer el contenido y meterlo en una variable.
//Básicamente el Json son los parámetros que recibe el ServicioREST
string json = "{\"user\":\"MiUsuario\"," +
"\"password\":\"MiContrasena\"," +
"\"Nombre\":\"" + Prueba+ "\"," +
"\"Test\":\"false\"," +
"\"EnviarCorreo\":\"true\"}";
streamWriter.Write(json);
streamWriter.Flush();
streamWriter.Close();
}
//Se realiza la petición al ServicioREST
var httpResponse = (HttpWebResponse)httpWebRequest.GetResponse();
using (var streamReader = new StreamReader(httpResponse.GetResponseStream()))
{
//Se parsea la información y se convierte en objeto RespuestaServicio
var responseString = streamReader.ReadToEnd();
JavaScriptSerializer serializer = new JavaScriptSerializer();
//El objeto RespuestaServicio es una clase que contiene la estructura de la respuesta
var result = serializer.Deserialize<RespuestaServicio>(responseString);
if (result.codigo == 100)
{
//Aqui finaliza mi invocación en este caso para mi codigo 100 es exito
}
else
{
//Cualquier otro código distinto de 100 es error.
}
}
Espero te sirva este ejemplo sencillo, cualquier cosa me dices.
Saludos.