End Call Incoming

[arenaluigi]

Hi Erel,

sorry for my bad english

I have the source android for the reject a call in eclipse.
I tried to create a library to use it in Basic4 but i can't.
If I send the sources working you, could try to create a library for us?:sign0085:

 

[Erel]

Can you post it here?

 

[arenaluigi]

The complete project is 10 Mb.
If I upload I get an error.

 

[Erel]

Is this an open source project? Can you post a link to the code?

 

[arenaluigi]

This is the link:
Android Call Blocking | meh

 

[Erel]

This is the same code with Reflection:

Sub KillCall
   Dim r As Reflector
   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

You should add this permission with the manifest editor:

AddPermission("android.permission.CALL_PHONE")

Note that I haven't tested this code. You can use PhoneEvents to run this code when the phone rings.

 

[arenaluigi]

Thank Erel,
now I try and let you know.

 

[arenaluigi]

Thank's Erel

works perfectly !!!! :sign0098::icon_clap:

 

[Erel]

Great

 

[KZero]

nice code
but there is anyway to use this code to accept the call and make the ringer silent ?

 

[arenaluigi]

YES.
you try the library answercall

 

[KZero]

YES.
you try the library answercall

answercall library not working with me with galaxy note and htc one x
but this end call code working with any device

 

[arenaluigi]

Hello,
the first ring he always does.
How to eliminate it ?

 

[Erel]

I do not think that you can eliminate it.

 

[arenaluigi]

Thank's.

 

[djpero]

Process_outgoing_calls

Can we use PROCESS_OUTGOING_CALLS to run application ?

 

[Erel]

Please start a new thread for this question.

 

[koaunglay]

This is the same code with Reflection:

Sub KillCall
   Dim r As Reflector
   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

You should add this permission with the manifest editor:

AddPermission("android.permission.CALL_PHONE")

Note that I haven't tested this code. You can use PhoneEvents to run this code when the phone rings.

Thanks Erel! Very nice!
That is work but it is ring about one second. So it show missed call.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Dim pe As PhoneEvents
    Dim ac As AnswerCall
    Dim phid As PhoneId
End Sub
Sub Service_Create
    pe.InitializeWithPhoneState("pe", phid)
    ac.Initialize("answercall")
   
End Sub


Sub pe_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    If IncomingNumber = "09797666203" Then
        KillCall
    Else
        ToastMessageShow(IncomingNumber, True)
        ac.LetPhoneRing(3000)
            If ac.isRinging == True Then
                ac.AnswerPhone
            End If
            ac.enableSpeakerphone
    End If
   
End Sub
Sub KillCall
   '    For This ---- You should add "AddPermission("android.permission.CALL_PHONE")" in manifest editor
   Dim r As Reflector
   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

How should I do ? I mean no need to show missed call.

 

[Erel]

I don't think that you can do anything about it. This code runs immediately when the incoming call is recognized.

 

[koaunglay]

I don't think that you can do anything about it. This code runs immediately when the incoming call is recognized.

Please one more help Erel!

If IncomingNumber = "09797666203" Then   
    KillCall
End If

That was KillCall. But when I write with db it is not Killcall. It is ringing.
The Code is ....

Sub pe_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
'''''                    Dim bnum As String
'''''                    bnum = IncomingNumber
'        For Block number from sq
        Main.c = Main.sq.ExecQuery("SELECT * FROM blacklist")
        For i = 0 To Main.c.RowCount - 1
            Main.c.Position = i
            Main.c.GetString("ph_num")
                            If Main.c.GetString("ph_num").Contains(IncomingNumber) Then    '     "09797666203" Then    /    IncomingNumber =
                                KillCall
                            Else
                                ToastMessageShow(IncomingNumber, True)
                                ac.LetPhoneRing(3000)
                                    If ac.isRinging == True Then
                                        ac.AnswerPhone
                                    End If
                                    ac.enableSpeakerphone
                            End If       
        Next   
        Main.c.Close

                   
End Sub

Please !!!!