vb.net - 如何使用 VB.NET 将 JSON 发布到特定的 url？

Question

我是 VB.NET 中有关 Web 服务的新手。我正在制作一个与 JIRA (http://www.atlassian.com/software/jira/) 对话的桌面应用程序。他们提供了一个我决定使用的 REST api。第一步是登录，他们说...

“要登录 JIRA，您需要 POST JSON 格式的用户名和密码...”

{“用户名”:“管理员”，“密码”:“管理员”}

到这个网址...

https://addressgoeshere (我们使用的是 https)

有人可以为我提供一个示例代码来执行此操作，以便我可以有一个指南和一个好的开始吗？

Answer 1

这是有效发布 json 的代码。变量 res能够给您答复您的查询

记得导入

系统网

系统.IO

System.text

通过使用

Imports

然后是导入名称

要绕过过期的 ssl 证书，请检查: 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 response As String
  Dim request As WebRequest

  request = WebRequest.Create(uri)
  request.ContentLength = jsonDataBytes.Length
  request.ContentType = contentType
  request.Method = method

  Using requestStream = request.GetRequestStream
    requestStream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
    requestStream.Close()

    Using responseStream = request.GetResponse.GetResponseStream
      Using reader As New StreamReader(responseStream)
        response = reader.ReadToEnd()
      End Using
    End Using
  End Using

  Return response
End Function

使用此功能

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

- 编辑 -

链接页面现已过期。这是一个有效的存档副本:

https://web.archive.org/web/20110924191356/http://blog.jameshiggs.com/2008/05/01/c-how-to-accept-an-invalid-ssl-certificate-programmatically/