json - 使用 VB.NET 在 URL HTTP Web 请求上发布 JSON

Question

我正在使用一个名为 Wit.ai 的在线 NLP API。我正在发送一个 http 网络请求，我得到了响应，一切都很好。但是，现在我需要知道如何发布这个 JSON：

 {
   "state": "email_or_text"
 }

作为此代码的补充：

 Function getJson()
    Dim editedText As String = TextBox1.Text.Replace(" ", "%20")
    Dim myHttpWebRequest = CType(WebRequest.Create("https://api.wit.ai/message?v=20140609&q=" + editedText + "&units=metric"), HttpWebRequest)
    myHttpWebRequest.Headers.Add("Authorization: Bearer <myauthcode>")
    Dim myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
    Dim myWebSource As New StreamReader(myHttpWebResponse.GetResponseStream())
    Dim myPageSource As String = myWebSource.ReadToEnd()
    Return myPageSource
End Function

谢谢你的帮助！

Answer 1

在http://dotnetpad.com/9O883hmI检查此代码， 它有一个 POST 方法的快速示例，可以让您开始发布 JSON。修改 URL 和内容字符串，然后点击 Run 并查看结果！