2013-08-20 64 views
1

我必須使用pushwoosh api向設備發送消息。我從vb.net發送它,我有一個高級帳戶。代碼工作正常,但我從服務器獲取代碼400作爲回報。有任何想法嗎?Pushwoosh,使用vb.net和json發送推送消息

我的JSON請求是這樣的:

{ 
    'request': 
    { 
'application':'xxxxx-xxxxx',     
    'auth':'xxxxx', 
     'notifications':[{ 
      'send_date':'now',  
      'ignore_user_timezone': true,  
      'content':'Hallo world' 
      }] 
    } 
} 

VB.net代碼:

召喚:

暗淡JsonSring =「{ '請求':{ '應用':「我的app id','auth':'api key','notifications':[{'send_date':'now','ignore_user_timezone':true,'content':'Hallo world'}]}}「

Dim myUri As New Uri(「https://cp.pushwoosh.com/json/1.3/」)

昏暗數據= Encoding.UTF8.GetBytes(jsonSring)

昏暗result_post = MyFunctions.SendRequest(myUri,數據, 「應用程序/ JSON」, 「POST」)

功能:

公共共享功能sendRequest將(URI作爲開放的,jsonDataBytes爲字節(),則contentType作爲字符串,方法作爲字符串)作爲字符串

Dim req As WebRequest = WebRequest.Create(uri) 

    req.ContentType = contentType 

    req.Method = method 

    req.ContentLength = jsonDataBytes.Length 



    Dim stream = req.GetRequestStream() 
    stream.Write(jsonDataBytes, 0, jsonDataBytes.Length) 
    stream.Close() 

    Dim response = req.GetResponse().GetResponseStream() 

    Dim reader As New StreamReader(response) 
    Dim res = reader.ReadToEnd() 
    reader.Close() 
    response.Close() 

    Return res 
End Function 

回答