B4A Library AnswerCall Library

XverhelstX · Nov 29, 2011

Hello everyone,

SoyEli wanted to answer a call automatically in this topic, so I created this library.

It works together with Erel's PhoneEvents PhoneStateChanged.

Note that you should respect the order of events of the sample in phonestateChanged and that it will only work in a service.

B4X:

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
    Log(Intent.ExtrasToString)
   AC.LetPhoneRing(3000)
   If AC.isRinging == True Then
      AC.AnswerPhone
   End If
   AC.enableSpeakerphone
End Sub

It may not work on all devices (if you can test it out?)
It worked for my Xperia PLAY.

Attachements include the library files and a sample

Tomas

koaunglay · Nov 25, 2014

Erel said:
This line looks wrong:
If numbers(i).Contains(IncomingNumber) Then

Thanks a lot Erel for your reply. I found error after two day. It's very difficult for me

NeoTechni · Jan 8, 2015

It no longer works on Lollipop

asales · Jun 10, 2015

I tried in Lollipop 5.0.2 and works. The log shows the number of phone correctly.

But the example of this post don't:
https://www.b4x.com/android/forum/threads/phone-number-blacklisting.54771/#post-344092

NeoTechni · Jun 12, 2015

I mean you can't answer phone calls on lollipop.

Sgardy · Jun 20, 2015

SOLVED!
Hi friends, I was getting crazy with the AnswerCall Library, it's was working fine but there were no ways to enable the speaker automatically; I tried with this first:

Sub PE2_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
ToastMessageShow(State & " " & IncomingNumber,True)
If State = "RINGING" Then
P.SetRingerMode(P.RINGER_SILENT)
If AC.isRinging == True Then

AC.AnswerPhone

End If
AC.enableSpeakerphone
End If
End Sub

That does not works in my Samsung Galaxy S3 then I changed with:

Sub Process_Globals

Private OnCall = false As Boolean
Private rr As Reflector 'This is an alternative option

End Sub

Sub PE2_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)

ToastMessageShow(State & " " & IncomingNumber,True)
If State = "RINGING" Then

OnCall = True
P.SetRingerMode(P.RINGER_SILENT)
If AC.isRinging == True Then

AC.AnswerPhone

End If

End If
If State = "OFFHOOK" And OnCall Then

AC.enableSpeakerphone
' You can use reflector instead of AC method, maybe it works with AnswerPhone too, I'll try
' rr.Target = rr.GetContext
' rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")
' rr.RunMethod2("setMode", 2, "java.lang.int")
' rr.RunMethod2("setSpeakerphoneOn", True, "java.lang.boolean")
OnCall = False

End If

End Sub

In other words the speaker must be enabled after the effective answer.

Enjoy!

palmzac · Oct 15, 2015

Hi XverhelstX ,

Thank you ! It's great library.

There is a problem that HTC device does not work. Do you have any solution ? Thank !

Palmzac

XverhelstX said:
Hello everyone,

SoyEli wanted to answer a call automatically in this topic, so I created this library.

It works together with Erel's PhoneEvents PhoneStateChanged.

Note that you should respect the order of events of the sample in phonestateChanged and that it will only work in a service.

B4X:

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent) Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber) Log(Intent.ExtrasToString) AC.LetPhoneRing(3000) If AC.isRinging == True Then AC.AnswerPhone End If AC.enableSpeakerphone End Sub

It may not work on all devices (if you can test it out?)
It worked for my Xperia PLAY.

Attachements include the library files and a sample

Tomas

Mark Zraik · Dec 1, 2015

I put this library to work on my phone due to an annoying telemarketer/proven scammer that was calling me. I added some other code that I found on this forum "KillCall" and together with an editable list in a plain text file, it really does the job of eliminating the problem.

I just use the HOME key to clear the app from the visible screen and keep the service running. Use the BACK key to kill the entire app and the service.

I changed the code in the main app and the service module.
Main code:

B4X:

#Region Module Attributes
    #FullScreen: False
    #IncludeTitle: True
    #ApplicationLabel: AnswerCall
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

'Activity module
Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

End Sub

Sub Activity_Create(FirstTime As Boolean)
    activity.AddMenuItem("Start Listener","mnuListen")
    Activity.AddMenuItem("Stop Listener","mnuStop")

    If FirstTime =  True Then
        If Not (File.Exists(File.DirDefaultExternal, "blacklist.txt")) Then
        File.Copy(File.DirAssets, "blacklist.txt", File.DirDefaultExternal, "blacklist.txt")
        End If
    End If
 
    mnuListen_Click
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)
    If (UserClosed = True) Then
    mnuStop_Click
    ExitApplication
    End If

End Sub

Sub mnuListen_Click
    StartService("Listener")
End Sub

Sub mnuStop_Click
    StopService("Listener")
End Sub

Service Module:

B4X:

#Region Module Attributes
    #StartAtBoot: true
#End Region

'Service module
Sub Process_Globals
    Dim PE As PhoneEvents 'gives you the phone events as they are happening - lib Phone ver. 2.25
    Dim AC As AnswerCall 'used for answering the call - lib AnswerCall ver. 1.00
    Dim PhoneId As PhoneId 'needed for PE Initialization
    Dim sNotif As Notification 'used for foreground services - required by android
'    Dim pnum As String 'used for writing number to file - uses lib randomaccessfile ver. 2.00
    Dim blklist As List 'used for checking numbers as they come in
'    Dim r As Reflector ' uses lib Reflection ver. 2.40
    Dim bnmatched As Boolean 'used for a match of a blacklisted/bad number
End Sub
Sub Service_Create
'Log("PID " & PhoneId)
    PE.InitializeWithPhoneState("PE",PhoneId)
    AC.Initialize("AnswerCall")
    'Log("Service created")
    sNotif.Initialize
    sNotif.Icon = "icon"
    sNotif.Vibrate = False
    sNotif.SetInfo("AnswerCall","Service Running",Main)
    sNotif.Sound = False
    sNotif.Notify(1)
    Service.StartForeground(1,sNotif)

End Sub


Sub Service_Start (StartingIntent As Intent)
    'Log("Service started.")
    ReadMeInfo
End Sub

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    'Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
    'Log(Intent.ExtrasToString)
    bnmatched = False
    'Log("State1: " & State)
'    pnum = IncomingNumber
    'ToastMessageShow(IncomingNumber,False)
'    Dim bnmatched As Boolean

    'If AC.isRinging == True Then

    For Each badnum As String In blklist 
        If IncomingNumber = badnum Then
        bnmatched = True
        'Log("Number: " & badnum)
        ToastMessageShow("BlackListed Number: " & badnum,True)
        'Return
        End If
    Next

    If bnmatched = True Then
        AC.LetPhoneRing(1000)     
        'answer the call to stop the call from going to voicemail.
        AC.AnswerPhone
        DoEvents
        AC.enableSpeakerphone 'just for kicks
        DoEvents
    End If

        'Log("State2: " & State)
        'ToastMessageShow("Killing1: " & badnum,False)
    If (bnmatched = True) Then
            'Log("Killing2: " & badnum)
            Try
                Dim r As Reflector ' uses lib Reflection ver. 2.40
                r.Target = r.GetContext
                Dim TelephonyManager, TelephonyInterface As Object
                TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
                r.Target = TelephonyManager
                TelephonyInterface = r.RunMethod("getITelephony")
                r.Target = TelephonyInterface
                r.RunMethod("endCall")
            Catch
            Log("Kill error: " & LastException)
            End Try
 
        'Log("Finished killing " & badnum)
    End If
    'End If
    'Log("State3: " & State)
End Sub
Sub Service_Destroy

End Sub

'Sub WriteMeInfo
'Dim TextWriter1 As TextWriter
'Log("Number " & pnum)
'            Try
'                If File.Exists(File.DirDefaultExternal, "blacklist.txt") Then
'                TextWriter1.Initialize(File.openOutput(File.DirDefaultExternal, "blacklist.txt", True))
'                TextWriter1.WriteLine(pnum)
'                TextWriter1.Close
'                Else
'                TextWriter1.Initialize(File.openOutput(File.DirDefaultExternal, "blacklist.txt", False))
'                TextWriter1.WriteLine(pnum)
'                TextWriter1.Close
'                End If
'            Catch
'            Log("Making new list: " &LastException.Message)
'            End Try
'End Sub

Sub ReadMeInfo
Dim rdr As TextReader

    '1. Read the file
    Try
        If File.Exists(File.DirDefaultExternal, "blacklist.txt") Then
            rdr.Initialize(File.openInput(File.DirDefaultExternal,"blacklist.txt"))
            blklist = rdr.ReadList
            rdr.Close
            Else
            ToastMessageShow("Black List File Not Found", True)
            DoEvents
            Return
        End If
    Catch
    Log("Getting List error: " &LastException.Message)
    End Try
    Log("Getting List Finished")
End Sub
'Sub KillCall
'       Dim r As Reflector ' uses lib Reflection ver. 2.40
'       r.Target = r.GetContext
'       Dim TelephonyManager, TelephonyInterface As Object
'       TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
'       r.Target = TelephonyManager
'       TelephonyInterface = r.RunMethod("getITelephony")
'       r.Target = TelephonyInterface
'       r.RunMethod("endCall")
'
'End Sub

There is also some commented out code that I plan on adding for the future, maybe.

The manifest file looks like the following:

B4X:

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="4" />
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
AddPermission(android.permission.READ_PHONE_STATE)
AddPermission(android.permission.CALL_PHONE)
AddPermission(android.permission.MODIFY_AUDIO_SETTINGS)
'End of default text.

Android Gingerbread 2.3.5 rooted, custom rom, sim unlocked on a Samsung i927 Glide.

If an incoming number matches a number in the text file of numbers (Manually edited), then it answers the phone, then hangs up the phone (Preventing my voicemail from being clogged with nonsense).

I must thank all of those who have unknowingly contributed to this hack I put together. Thank You All!

This is a great library, it just needed the hangup step, which i found else where on this forum.

I hope this helps someone out besides me. Enjoy the hack...
NOTE: If you add or remove a number from the blacklist, stop and restart the service and it will re-read the file. I just use a basic text editor to do this (10 digit numbers, I don't include the "1")

Changed the service module to play the 3 tones to indicate a number that is no longer in service, I have the same on my voicemail at the beginning of the greeting.

So here is the new service module code:

B4X:

#Region Module Attributes
    #StartAtBoot: true
#End Region

'Service module
Sub Process_Globals
    Dim PE As PhoneEvents 'gives you the phone events as they are happening - lib Phone ver. 2.25
    Dim AC As AnswerCall 'used for answering the call - lib AnswerCall ver. 1.00
    Dim PhoneId As PhoneId 'needed for PE Initialization
    Dim sNotif As Notification 'used for foreground services - required by android
'    Dim pnum As String 'used for writing number to file - uses lib randomaccessfile ver. 2.00
    Dim blklist As List 'used for checking numbers as they come in
'    Dim r As Reflector ' uses lib Reflection ver. 2.40
    Dim bnmatched As Boolean 'used for a match of a blacklisted/bad number
    Dim tones As MediaPlayer
End Sub
Sub Service_Create
'Log("PID " & PhoneId)
    PE.InitializeWithPhoneState("PE",PhoneId)
    AC.Initialize("AnswerCall")
    'Log("Service created")
    sNotif.Initialize
    sNotif.Icon = "icon"
    sNotif.Vibrate = False
    sNotif.SetInfo("AnswerCall","Service Running",Main)
    sNotif.Sound = False
    sNotif.Notify(1)
    Service.StartForeground(1,sNotif)

End Sub


Sub Service_Start (StartingIntent As Intent)
    'Log("Service started.")
    ReadMeInfo
'    tones.Initialize2("killIt")
End Sub

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    'Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
    'Log(Intent.ExtrasToString)
    bnmatched = False
    'Log("State1: " & State)
'    pnum = IncomingNumber
    'ToastMessageShow(IncomingNumber,False)
'    Dim bnmatched As Boolean

    'If AC.isRinging == True Then

    For Each badnum As String In blklist    
        If IncomingNumber = badnum Then
        bnmatched = True
        'Log("Number: " & badnum)
        'ToastMessageShow("BlackListed Number: " & badnum,True)
        'Return
        End If
    Next

    If bnmatched = True Then
        AC.LetPhoneRing(1000)        
        'answer the call to stop the call from going to voicemail.
        AC.AnswerPhone
        DoEvents
        AC.enableSpeakerphone 'just for kicks
        DoEvents
    End If

        'Log("State2: " & State)
        'ToastMessageShow("Killing1: " & badnum,False)
    If (bnmatched = True) Then
            'Log("Killing2: " & badnum)
'            Try
'                Dim r As Reflector ' uses lib Reflection ver. 2.40
'                r.Target = r.GetContext
'                Dim TelephonyManager, TelephonyInterface As Object
'                TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
'                r.Target = TelephonyManager
'                TelephonyInterface = r.RunMethod("getITelephony")
'                r.Target = TelephonyInterface
'                r.RunMethod("endCall")
'            Catch
'            Log("Kill error: " & LastException)
'            End Try
    
        'Log("Finished killing " & badnum)
        playIt
    End If
    'End If
    'Log("State3: " & State)
End Sub
Sub Service_Destroy

End Sub

'Sub WriteMeInfo
'Dim TextWriter1 As TextWriter
'Log("Number " & pnum)
'            Try
'                If File.Exists(File.DirDefaultExternal, "blacklist.txt") Then
'                TextWriter1.Initialize(File.openOutput(File.DirDefaultExternal, "blacklist.txt", True))
'                TextWriter1.WriteLine(pnum)
'                TextWriter1.Close
'                Else
'                TextWriter1.Initialize(File.openOutput(File.DirDefaultExternal, "blacklist.txt", False))
'                TextWriter1.WriteLine(pnum)
'                TextWriter1.Close
'                End If
'            Catch
'            Log("Making new list: " &LastException.Message)
'            End Try
'End Sub

Sub ReadMeInfo
Dim rdr As TextReader

    '1. Read the file
    Try
        If File.Exists(File.DirDefaultExternal, "blacklist.txt") Then
            rdr.Initialize(File.openInput(File.DirDefaultExternal,"blacklist.txt"))
            blklist = rdr.ReadList
            rdr.Close
            Else
            ToastMessageShow("Black List File Not Found", True)
            DoEvents
            Return
        End If
    Catch
    Log("Getting List error: " &LastException.Message)
    End Try
    Log("Getting List Finished")
End Sub

Sub playIt
Log("Starting Tones")
Try
tones.Initialize'2("killIt")
If File.Exists(File.DirDefaultExternal, "tone.mp3") Then
    tones.Load(File.DirDefaultExternal, "tone.mp3")
    tones.Looping = False
    tones.Play

    End If
'ToastMessageShow("Playing tones", False)
'

    DoEvents
    DoEvents
    DoEvents
    Log("Stopping Tones")
'
Catch
Log("Player error: " &LastException.Message)
End Try


Do While tones.IsPlaying
'Log("Playing now")
Loop
killIt
tones.Stop
tones.Release
End Sub
Sub killIt

Log("Killing call")
            Try
                Dim r As Reflector ' uses lib Reflection ver. 2.40
                r.Target = r.GetContext
                Dim TelephonyManager, TelephonyInterface As Object
                TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
                r.Target = TelephonyManager
                TelephonyInterface = r.RunMethod("getITelephony")
                r.Target = TelephonyInterface
                r.RunMethod("endCall")
            Catch
            Log("Kill error: " & LastException)
            End Try
        
End Sub
'Sub KillCall
'       Dim r As Reflector ' uses lib Reflection ver. 2.40
'       r.Target = r.GetContext
'       Dim TelephonyManager, TelephonyInterface As Object
'       TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
'       r.Target = TelephonyManager
'       TelephonyInterface = r.RunMethod("getITelephony")
'       r.Target = TelephonyInterface
'       r.RunMethod("endCall")
'
'End Sub

B4A Library AnswerCall Library

Attachments

koaunglay

Member

NeoTechni

Well-Known Member

asales

Expert

NeoTechni

Well-Known Member

Sgardy

Member

palmzac

Active Member

Mark Zraik

Member

Attachments

B4A Library AnswerCall Library

Attachments

Member

Well-Known Member

Expert

Well-Known Member

Member

Active Member

Member

Attachments

Privacy & Transparency

Privacy & Transparency