B4A Library ReplyAuto - Library Response WhatsApp, Telegram (background service)

Hello, I would like to introduce you to my new auto-response library for social networks, compatible with whatsapp, telegram works in the background

A good part of the code was recovered from the NotificationListener library I made some modifications to adapt to my project and I'm making available to you the example and the ReplyAuto.rar library.

Sorry for my English, I'm Brazilian and I'm in love with Basic4Android. no more conversations Let's go to the example.

Important minSdkVersion="14" AND android:targetSdkVersion="29"


Manifest: 
AddApplicationText(
<service android:name="b4a.jsaplication.com.br.ReplyAuto"
    android:label="ReplyAuto"
          android:permission="android.permission.BIND_NOTIFICATION_LISTENER_SERVICE">
     <intent-filter>
         <action android:name="android.service.notification.NotificationListenerService" />
     </intent-filter>
 </service>)


B4A: 
Sub ReplyAuto_NotificationPosted (SBN As StatusBarNotification)
    'Log(SBN.Id) 'get Id Notification
    'Log(SBN.PackageName) 'get PackageName Application posted Notification
    'Log(SBN.Notification) 'get Notification object
    'Log(SBN.Extras)  'get extras Notification
    'Log(SBN.ContentIntent) 'get ContentIntent not used
    'Log(SBN.Key) 'get Key
    'LogColor(SBN.Title, Colors.Green)
    'LogColor(SBN.Message, Colors.Green)
    
    If SBN.PackageName == "com.whatsapp" Then
        Dim whatsappkey As String = SBN.Key
        Dim ww() As String = Regex.Split("\|", whatsappkey)
        If ww(3) <> "null" Then
            'rp.ClearNotification(SBN)
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld WhatsApp")
            Log("Reply Whatsapp Success")
        End If
    End If
    

    If SBN.PackageName == "com.whatsapp.w4b" Then
        Dim whatsappkey As String = SBN.Key
        Dim ww() As String = Regex.Split("\|", whatsappkey)
        If ww(3) <> "null" Then
            'rp.ClearNotification(SBN)
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld WhatsApp-Business")
            Log("Reply Whatsapp Success")
        End If
    End If
    
    If SBN.PackageName == "org.telegram.messenger.web" Then
        Dim telegramkey As String = SBN.Key
        Dim tt() As String = Regex.Split("\|", telegramkey)
        
        If tt(2).Length <> "1" Then
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld Telegram")
            Log("Send Telegram Success")
        End If
    End If
    
    If SBN.PackageName == "org.telegram.messenger" Then
        Dim telegramkey As String = SBN.Key
        Dim tt() As String = Regex.Split("\|", telegramkey)
        
        If tt(2).Length <> "1" Then
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld Telegram")
            Log("Send Telegram Success")
        End If
    End If
    

End Sub
 

Attachments

  • ReplyAuto Library.rar
    16.9 KB · Views: 746
  • ReplyAuto.zip
    9.5 KB · Views: 723
Click to expand...

gainax00

Member
Hola!! en Android 6.x me retorna doble respuesta (mensaje) porqué? y no me detecta Telegram

Hello!! in Android 6.x it returns me a double response (message) why? and Telegram does not detect me

 
H

hanyelmehy

Active Member
Licensed User
Longtime User
i try lib with Instagram (com.instagram.android)
income message detected but when try
B4X: 
rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld instgram")
i get message (not success)
any idea ?
 

jsaplication.mobile

Member
Licensed User
B4A: 
    'This code checks if a notification has already been responded to. if already answered it does not run until a new one works.
    If SBN.PackageName == "com.whatsapp" Then
        Dim whatsappkey As String = SBN.Key
        Dim ww() As String = Regex.Split("\|", whatsappkey)
        If ww(3) <> "null" Then
            'rp.ClearNotification(SBN)
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld WhatsApp")
            Log("Reply Whatsapp Success")
        End If
    End If
    
    ''This code checks if a notification has already been responded to. if already answered it does not run until a new one works.
    If SBN.PackageName == "com.whatsapp.w4b" Then
        Dim whatsappkey As String = SBN.Key
        Dim ww() As String = Regex.Split("\|", whatsappkey)
        If ww(3) <> "null" Then
            'rp.ClearNotification(SBN)
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld WhatsApp-Business")
            Log("Reply Whatsapp Success")
        End If
    End If
    
    'This code checks if a notification has already been responded to. if already answered it does not run until a new one works.
    If SBN.PackageName == "org.telegram.messenger.web" Then
        Dim telegramkey As String = SBN.Key
        Dim tt() As String = Regex.Split("\|", telegramkey)
        
        If tt(2).Length <> "1" Then
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld Telegram")
            Log("Send Telegram Success")
        End If
    End If
    
'renome to packeger app telegram.
    If SBN.PackageName == "org.telegram.messenger" Then
        Dim telegramkey As String = SBN.Key
        Dim tt() As String = Regex.Split("\|", telegramkey)
        
        If tt(2).Length <> "1" Then
            rp.reply(SBN.Notification, SBN.PackageName, "Reply HelloWorld Telegram")
            Log("Send Telegram Success")
        End If
    End If
    

End Sub
 

gainax00

Member
Excelente!!! lo estaba implementando mal ??
Excellent!!! I was implementing it wrong
 

gainax00

Member
Does not capture notifications in android 6.0.1 why will it be?

No captura las notificaciones en android 6.0.1
porqué sera?
 

cheveguerra

Member
Licensed User
Longtime User
Hi, is it possible to know if the sender is a group or a person??

Hola, es posible saber si el que manda el mensaje es un grupo o un chat individual?

Best regards
 

jsaplication.mobile

Member
Licensed User
cheveguerra said:
Oi, é possível saber se o remetente é um grupo ou uma pessoa??

Hola, es possible saber si el que manda el mensaje es un grupo ou un chat individual?

Atenciosamentena ve
Click to expand...

cheveguerra said:
Hi, is it possible to know if the sender is a group or a person??

Hola, es posible saber si el que manda el mensaje es un grupo o un chat individual?

Best regards
Click to expand...

SBN.title

Essa função verifica o nome do remetente.. quando é um contato que não está salvo nos contatos ele mostra o Numero caso contrário o Nome do remetente ou o nome do grupo
 

cheveguerra

Member
Licensed User
Longtime User
Hi again, it seems that when (In whatsapp) the message comes from a group, in title you get “group name”: “sender name”, so if you search for ": " in the title, you can know if the message comes from a group or from an individual chat, so I made this function:

isGroupWA: 
Sub isGroupWA(msgSender As String) As Boolean
    Private x As Boolean = Regex.ismatch(".*(: ).*", msgSender)
    Return x
End Sub

if isGroupWA(SBN.title) then
      ... do something only if message comes from a group
End If
So maybe someone finds it useful!!

Best regards
 

cheveguerra

Member
Licensed User
Longtime User
Here some other functions to get info from the notification object (SBN):

B4X: 
'Searches the provided sbn.title for the string ": " to know if the sender is a group.
Sub isGroupWA(sbnTitle As String) As Boolean
    Private x As Boolean = Regex.ismatch(".*(: ).*", sbnTitle)
    Return x
End Sub

'Searches the provided notification object for the string "channel=group" and if found returns TRUE.
Sub isGroupWA2(sbn As StatusBarNotification) As Boolean
    Private y As Int = sbn.As(String).IndexOf("channel=group") 'ignore
    Private z As Boolean = False
    If y > -1 Then z = True
    Return z
End Sub

'Searches the provided notification object for the string "@s.whatsapp.net" and if found returns TRUE.
Sub isPersonWA(sbn As StatusBarNotification) As Boolean
    Private y As Int = sbn.As(String).IndexOf("@s.whatsapp.net") 'ignore
    Private z As Boolean = False
    If y > -1 Then z = True
    Return z
End Sub

'Searches the provided notification object for the string "channel=individual" and if found returns TRUE.
Sub isPersonWA2(sbn As StatusBarNotification) As Boolean
    Private y As Int = sbn.As(String).IndexOf("channel=individual") 'ignore
    Private z As Boolean = False
    If y > -1 Then z = True
    Return z
End Sub

'Returns the sender's number.
'Searches the provided notification object and gets the numbers between "shortcut=" and "@s.whatsapp.net".
Sub getNumberWA(sbn As StatusBarNotification) As String
    Private a As Int = sbn.As(String).IndexOf("@s.whatsapp.net") 'ignore
    If a > -1 Then
        Private x As String = sbn.As(String) 'ignore
        Private y As Int = x.IndexOf("shortcut=")
        x = x.SubString2(y+9, a)
    Else 'It is probably is a group.
        x = "Not a person."        
    End If
    Return x
End Sub

'Returns the person's name when the message comes from a group.
'Searches the provided sbn.title for the string ": " in the title and returns the string after that, if does not find ": " then returns the complete string.
Sub getPersonFromGroup(sbnTitle As String) As String
    Private a As Int = sbnTitle.IndexOf(": ")
    If a = -1 Then a = -2 'Is not from a group.
    Private b As String = sbnTitle.SubString(a+2)
    Return b
End Sub
 

jsaplication.mobile

Member
Licensed User
Thanks for sharing your knowledge I'm working on version 1.1 with new features and more app support.
 

cheveguerra

Member
Licensed User
Longtime User
Hi, in some cases the previous function didn't return the correct result, so I changed the searched string.

Change function: 
'Searches the provided notification object for the string "@g.us" and if found returns TRUE.
Sub isGroupWA2(sbn As StatusBarNotification) As Boolean
    Private a As Boolean = False
    If sbn.As(String).IndexOf("@g.us") > -1 Then a = True 'ignore
    Return a
End Sub
 

tex22

Member
Licensed User
Longtime User
Hi, this is very useful. Specially after Meta's new policies.

Is it possible to receive and save photo/files/audio/location? And also send them?

Oi, isto será muito útil. Especialmente depois das noves políticas da Meta.

É possível receber e salvar fotos/arquivos/audio/localização? E também tem como enviá-los?
 
Last edited:
You must log in or register to reply here.

Similar Threads

  • Question
Android Question Send SMS
Replies
1
Views
753
Erel
  • Question
Android Question SMS <startingIntent.Action = "android.provider.Telephony.SMS_RECEIVED"> don't work in B4XPages
Replies
3
Views
2K
Diego Marcelo Croatto
A
  • Question
Android Question Error sending email with attachment
Replies
1
Views
1K
Erel
G
  • Question
Android Question Question re targetSdkVersion = "26" and email intent
Replies
9
Views
2K
GEoffT
G
M
  • Question
Android Question eMail, Attachments and Android 7 Crash
Replies
9
Views
2K
Erel
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…