Post JSON sur l'URL Web HTTP de la Requête avec la VB.NET

Je suis en utilisant un en ligne PNL API appelée l'Esprit.l'ia. Je suis l'envoi d'un web http de la requête, et je reçois une réponse, et que tout fonctionne parfaitement bien. Cependant, maintenant, j'ai besoin de savoir comment faire pour POSTER ce JSON:

 {
   "state": "email_or_text"
 }

Comme un ajout à ce code:

 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

Merci pour votre aide!

OriginalL'auteur user3567163 | 2014-06-27