Public Function NotificationSend_iOS2(ByVal MessageTitle As String, ByVal MessageBody As String) As Boolean
Dim blnReturn As Boolean = True ' To do - check for failure
Dim strServer_Api_Key As String = MyAPIKey
Dim strSender_ID As String = MySenderID
Dim strTopis As String = "/topics/ios_general"
Dim nm As New NotificationMessage()
nm.title = MessageTitle
nm.Message = MessageBody
nm.ItemId = 123
Dim x As New JsonSerializerSettings()
Dim strValue As String = JsonConvert.SerializeObject(nm, x)
Dim strURL As String = "https://fcm.googleapis.com/fcm/send"
Dim ourUri As New Uri(strURL)
Dim tRequest As WebRequest = WebRequest.Create(strURL)
tRequest.Method = "post"
tRequest.ContentType = "application/json"
tRequest.Headers.Add(String.Format("Authorization: key={0}", strServer_Api_Key))
Dim strPost As String = "{""notification"": { " &
"""title"": ""Portugal vs. Denmark""," &
"""body"": ""5 to 1""" &
"}," &
"""content_available"": true, " &
"""priority"": ""high""," &
"""to"" : ""/topics/ios_general""" &
"}"
Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(strPost)
tRequest.ContentLength = byteArray.Length
Dim dataStream As IO.Stream = tRequest.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
Dim tResponse As WebResponse = tRequest.GetResponse()
dataStream = tResponse.GetResponseStream()
Dim tReader As New IO.StreamReader(dataStream)
Dim sResponseFromServer As String = tReader.ReadToEnd()
Debug.Print(sResponseFromServer)
tReader.Close()
dataStream.Close()
tResponse.Close()
Return blnReturn
End Function