'To send to a single, specific device, pass the device's registration token as shown.
'See the client setup information for your platform to learn more about registration tokens.
'https://firebase.google.com/docs/cloud-messaging/send-message#send-messages-to-specific-devices
Public Sub SendMessagesToSpecificDevices(token As String,body As String,title As String)
Dim url As String = $"https://fcm.googleapis.com/v1/projects/${PROJECT_NAME}/messages:send"$
Dim json As JSONGenerator
json.Initialize(CreateMap("message":CreateMap("token":token,"notification":CreateMap("body":body,"title":title))))
Dim j As HttpJob : j.Initialize("",Me)
j.PostString(url,json.ToString)
j.GetRequest.SetContentType("application/json")
j.GetRequest.SetHeader("Authorization", "Bearer " & API_KEY)
Wait For (j) JobDone(j As HttpJob)
End Sub