如何使用vb.net发送通知以进行解析

Question

When I am trying to push the following JSON data it's showing "The remote server returned an error: (400) Bad Request". It succeeds only if the JSON data contents all are in single quotes.

    {  
   'mbs':{  
      'msg':{  
         'i':'6510',
         'c':'0',
         'st':'030116125200',
         'et':'030116135800',
         'rs':'0',
         'mt':'1',
         'r':'165908',
         'ms':'256',
         's':'1',
         'tr':'2',
         'l':'en-US',
         'mr':'0',
         'th':'green',
         'dl':'1',
         'h':'1',
         'd':[  
            {  
               'data':'<p><span style="font-family: Calibri; font-size: 14px;">Enter the content of your alert below. Click on Save to save your changes. When ready to publish the alert, click on Publish.</span></p>'
            },
            {  
               'data':'<p><span style="font-family: Calibri; font-size: 14px;">Enter the content of your alert below. Click on Save to save your changes. When ready to publish the alert, click on Publish.</span></p>'
            }
         ],
         't':[  
            {  
               'data':'English'
            },
            {  
               'data':'English'
            }
         ]
      }
   }
}

I used following vb.net code

Private Function PushNotifications(ByVal PushMessage As String) As Boolean
    Dim isPushMessageSend As Boolean = False
    Dim postString As String = ""
    Dim urlpath As String = "https://api.parse.com/1/push"
    Dim httpWebRequest = DirectCast(WebRequest.Create(urlpath), HttpWebRequest)

    postString = "{ ""where"": {}, " & """data"" : {""alert"":""" & PushMessage & """}" & "}" 'for sending to everyone
    httpWebRequest.ContentType = "application/json"
    httpWebRequest.ContentLength = postString.Length
    httpWebRequest.Headers.Add("X-Parse-Application-Id", "*****")
    httpWebRequest.Headers.Add("X-Parse-REST-API-KEY", "*****")
    httpWebRequest.Method = "POST"
    Dim requestWriter As New StreamWriter(httpWebRequest.GetRequestStream())
    requestWriter.Write(postString)
    requestWriter.Close()
    Dim httpResponse = DirectCast(httpWebRequest.GetResponse(), HttpWebResponse)
    Using streamReader = New StreamReader(httpResponse.GetResponseStream())
        Dim responseText = streamReader.ReadToEnd()

        Dim jobjRes As JObject = JObject.Parse(responseText)
        If Convert.ToString(jobjRes).IndexOf("true") <> -1 Then
            isPushMessageSend = True
        End If
        System.IO.File.WriteAllText("D:\jsondata4.txt", jobjRes.ToString())
    End Using
    MessageBox.Show("Successfully sent")
    Return isPushMessageSend
End Function

Answer 1

That's because you have values that contain double quotes. This works:

'data':'<p><span style="font-family: Calibri; font-size: 14px;">'

This won't:

"data":"<p><span style="font-family: Calibri; font-size: 14px;">"

because it's parsed as "data":"<p><span style="

and then what follows, font-family: Calibri; font-size: 14px;">" font-family: Calibri; font-size: 14px;">" isn't valid JSON.