WhatsApp/FCM

[KMatle]

What others see when they get WhatsApp messages:



What I see:

Sub fm_MessageArrived (Message As RemoteMessage)
   Log("Message arrived")
   Log($"Message data: ${Message.GetData}"$)
   Log("ID: " & Message.MessageId)
   Log("From: " & Message.From)
   Log("Collapse: " & Message.CollapseKey)
 
   Dim MessMap As Map = Message.GetData
   
   CreateNotification(MessMap)
   AddBadgeToIcon(UnreadMessages)
    
End Sub