'Non-UI application (console / server application)
#Region Project Attributes
#CommandLineArgs:
#MergeLibraries: True
#End Region
Sub Process_Globals
Private const API_KEY As String = "AAAA9awD0BQ:APA91bGDh0YT4p9AVQi18x0pufJ63gUedQtzq7nWtqBE9H1VlJHTRWqpmjeWNIeIs_dk0Rcw6LohJIGjdCoE1TPspSGZsLo9kq0qzDKBNheL9uRlQdJozKSRX-DBcQPvuamsAqT_TWBX"
Private const tokenid As String = "1A796E86FD8BD0DEFA94884C6F96036FD6C65E21B6DA4699DF675C1BB6AEDA00"
End Sub
Sub AppStart (Args() As String)
' SendMessage("ios_general", "Titolo del Messaggio", "Corpo del Messaggio")
SendMessage(tokenid, "title", "body")
StartMessageLoop
End Sub
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 m As Map = CreateMap("to": 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 JobDone(job As HttpJob)
Log(job)
If job.Success Then
Log(job.GetString)
End If
job.Release
ExitApplication '!
End Sub