'******************************************************
'SEND TO NOTIFICATION GROUP
'******************************************************
Public Sub TW_Notifi_SendGroup(strTopic As String, Title As String, Body As String)
Dim Job As HttpJob
Job.Initialize("fcm",Me)
Dim m As Map=CreateMap("to": $"/topics/${strTopic}"$)
Dim notifi As Map=CreateMap("title": Title,"body":Body)
Dim data As Map=CreateMap("title": Title,"body":Body,"notification":"Group")
m.Put("notification",notifi)
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")
Job.GetRequest.SetHeader("Authorization","key=" & TW_Notifikey)
End Sub