B4A Library WhatsApp Library

...
SBN.PackageName.Contains("whatsapp")
....

#Region  Service Attributes
    #StartAtBoot: True
#End Region

Sub Process_Globals
    Private listener As NotificationListener
End Sub
Sub Service_Create
    listener.Initialize("listener")
End Sub

Sub Service_Start (StartingIntent As Intent)
    If listener.HandleIntent(StartingIntent) Then Return
End Sub

Sub Listener_NotificationPosted (SBN As StatusBarNotification)

    Dim p As Phone
    If p.SdkVersion >= 19 Then
        Dim jno As JavaObject = SBN.Notification
        Dim extras As JavaObject = jno.GetField("extras")
        extras.RunMethod("size", Null)
       If SBN.PackageName.Contains("whatsapp") Then
            Dim title As String = extras.RunMethod("getString", Array As Object("android.title"))
            LogColor("Name = " & title, Colors.Blue)
            ToastMessageShow("Name: " & title,False)
            Dim cu As Contacts
            For Each c As Contact In cu.FindByName(title,True)
                Dim loc_Phones As Map
                loc_Phones.Initialize
                loc_Phones = c.GetPhones
                Dim loc_NumberFrom As String = ""
                Dim x As Int=0
                For x=0 To loc_Phones.Size-1
                   If loc_Phones.GetValueAt(x) = c.PHONE_MOBILE Then
                       loc_NumberFrom = loc_Phones.GetKeyAt(x)
                        loc_NumberFrom = loc_NumberFrom.Replace(" ","")
                        loc_NumberFrom = loc_NumberFrom.Replace("-","")
                        LogColor("Number = " & loc_NumberFrom, Colors.Blue)
                        ToastMessageShow("Number: " & loc_NumberFrom, False)
                    End If
                Next
            Next
            Dim text As String = extras.RunMethod("getString", Array As Object("android.text"))
           'LogColor("text = " & text, Colors.Blue)
            Dim loc_message As String = text
            If text = "null" Then
                Try
                    Dim lines() As Object = extras.RunMethod("getCharSequenceArray", Array("android.textLines"))
                    For Each line As Object In lines
                         'Log(line)
                         loc_message = line
                    Next
                Catch
                    LogColor("Error!" & title, Colors.Red)
                End Try
            End If 
            LogColor("Message = " & loc_message, Colors.Blue)
            ToastMessageShow("Message: " & loc_message, False)
            'Cancella Notifiche
            'listener.ClearNotification(SBN)      
        Else
            'Per posta o altro
            'ToastMessageShow("NotificationPosted, package = " & SBN.PackageName & ", id = " & SBN.Id & _
        '", text = " & SBN.TickerText, False)
        Dim p As Phone
        Dim jno As JavaObject = SBN.Notification
        Dim extras As JavaObject = jno.GetField("extras")
        extras.RunMethod("size", Null)
        Log(extras)
        Dim title As String = extras.RunMethod("getString", Array As Object("android.title"))
        Dim text As String = extras.RunMethod("getString", Array As Object("android.text"))
        LogColor("Title = " & title, Colors.Blue)
        If title <> "null" Then
        ToastMessageShow(title, True) 'title
        End If
        If text <> "null" Then
        ToastMessageShow(text, True) 'testo
        End If

End If
End If

End Sub

Sub Listener_NotificationRemoved (SBN As StatusBarNotification)
    Log("NotificationRemoved, package = " & SBN.PackageName & ", id = " & SBN.Id & _
        ", text = " & SBN.TickerText)
End Sub

Sub ClearAll
    listener.ClearAll
End Sub

Sub GetActive
    listener.GetActiveNotifications
End Sub

Sub Service_Destroy

End Sub