servicio restclient net consumir consume vb.net web-services json post

vb.net - restclient - web api vb net



¿Cómo POSTAR un JSON a una url específica usando VB.NET? (2)

Soy un novato en servicios web en VB.NET. Estoy creando una aplicación de escritorio que hablará con JIRA (http://www.atlassian.com/software/jira/). Ellos proporcionaron una API REST que decidí usar. El primer paso es iniciar sesión que dicen que ...

"Para iniciar sesión en JIRA, necesita POSTAR un nombre de usuario y contraseña en formato JSON ..."

{"username": "admin", "password": "admin"}

a esta url ...

https: // addressgoeshere (estamos usando https)

¿Alguien me puede proporcionar un código de ejemplo para hacer esto para que pueda tener una guía y un buen comienzo? Por favor y muchas gracias!


Para ''La conexión subyacente se cerró:'' el error incluye estas 2 líneas de código después de la línea ...WebRequest.Create(Url) - debería funcionar

System.Net.ServicePointManager.UseNagleAlgorithm = False System.Net.ServicePointManager.Expect100Continue = False


Aquí está el código para publicar json con eficacia. La variable res es capaz de darle la respuesta a su consulta

recuerda importar

  • System.Net
  • System.IO
  • Sistema

mediante el uso

Imports

y luego los nombres de importación

para omitir el certificado ssl caducado verifique esto: http://blog.jameshiggs.com/2008/05/01/c-how-to-accept-an-invalid-ssl-certificate-programmatically/

Private Function SendRequest(uri As Uri, jsonDataBytes As Byte(),contentType As String, method As String) As String Dim req As WebRequest = WebRequest.Create(uri) req.ContentType = contentType req.Method = method req.ContentLength = jsonDataBytes.Length Dim stream = req.GetRequestStream() stream.Write(jsonDataBytes, 0, jsonDataBytes.Length) stream.Close() Dim response = req.GetResponse().GetResponseStream() Dim reader As New StreamReader(response) Dim res = reader.ReadToEnd() reader.Close() response.Close() Return res End Function

usar esta función

Dim data = Encoding.UTF8.GetBytes(jsonSring) Dim result_post = SendRequest(uri, data, "application/json", "POST")