...
Private Sub SendMessage(Topic As String, Title As String, Body As String)
Dim Job As HttpJob
Job.Initialize("fcm", Me)
Dim m As Map = CreateMap("to": $"/topics/${Topic}"$)
Dim data As Map = CreateMap("title": Title, "body": Body)
If Topic.StartsWith("ios_") Then
Dim iosalert As Map = CreateMap("title": Title, "body": Body, "sound": "default")
m.Put("notification", iosalert)
m.Put("priority", 10)
End If
m.Put("data", data)
Dim jg As JSONGenerator
jg.Initialize(m)
Job.PostString("https://fcm.googleapis.com/fcm/send", jg.ToString)
Job.GetRequest.SetContentType("application/json;charset=UTF-8")
Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
End Sub
Sub btn_invia_Click
'Se ho modificatola notifica faccio l'update
If ft_notifica.Text.Length > 0 Then
SendMessage("general", "NameApp", ft_notifica.Text)
Else
Msgbox("INSERIRE IL MESSAGGIO DA INVIARE","MESSAGGIO")
ft_notifica.RequestFocusAndShowKeyboard
End If
End Sub