Private Sub SubscribeToTopic2(Token() As String, TopicName As String)
Dim Job As HttpJob
Job.Initialize("fcm", Me)
Dim m As Map = CreateMap("to": $"/topics/${TopicName}"$, "registration_tokens":Token)
Dim jg As JSONGenerator
jg.Initialize(m)
Job.PostString("https://iid.googleapis.com/iid/v1:batchAdd", jg.ToString)
Job.GetRequest.SetContentType("application/json")
Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
End Sub
Private Sub UnsubscribeTopic2(Token() As String, TopicName As String)
Dim Job As HttpJob
Job.Initialize("fcm", Me)
Dim m As Map = CreateMap("to": $"/topics/${TopicName}"$, "registration_tokens":Token)
Dim jg As JSONGenerator
jg.Initialize(m)
Job.PostString("https://iid.googleapis.com/iid/v1:batchRemove", jg.ToString)
Job.GetRequest.SetContentType("application/json")
Job.GetRequest.SetHeader("Authorization", "key=" & API_KEY)
End Sub