如何使用 VB.NET 将 JSON POST 到特定 url？

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

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

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

到这个网址...

https://地址在这里 https://addressgoeshere（我们使用https）

有人可以为我提供示例代码来执行此操作，以便我可以得到指导和良好的开端吗？

这是有效发布 json 的代码。变量res能够回答您的询问

记得导入

• 系统网
• 系统IO
• 系统文本

by using

Imports

然后是导入名称

要绕过过期的 ssl 证书，请检查以下内容：http://blog.jameshiggs.com/2008/05/01/c-how-to-accept-an-invalid-ssl-certificate-programmatically/ 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")

--EDIT--

链接页面现已过期。这是一个工作存档副本：

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