Italian PhoneCalls

#Region  Service Attributes
    #StartAtBoot: False
    #ExcludeFromLibrary: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
       
    Dim str As String
End Sub

Sub Service_Create
    'This is the program entry point.
    'This is a good place to load resources that are not specific to a single activity.

End Sub

Sub Service_Start (StartingIntent As Intent)
   
'    Log(StartingIntent)
'    Log(StartingIntent.ExtrasToString)
   
    If StartingIntent.Action = "android.intent.action.PHONE_STATE" Then
       
        Select StartingIntent.GetExtra("state")
            str = StartingIntent.ExtrasToString
            Log("FINISCE LA TELEFONATA: " & str)
            'onhook - call ended or phone idle
            Case "ILDE"
                Log("ILDE")
                'outgoing call processing
            Case "OFFHOOK"
                Log("OFF")
                'incoming call processing
            Case "RINGING"
                Log("CallerID="&StartingIntent.GetExtra("incoming_number"))
      
        End Select
    End If

    If StartingIntent.Action = "android.intent.action.NEW_OUTGOING_CALL" Then
            str = StartingIntent.ExtrasToString
            Log("PARTE LA TELEFONATA: " & str)
        If StartingIntent.HasExtra("android.intent.extra.PHONE_NUMBER") Then
            Dim myphone As String
            myphone = StartingIntent.GetExtra("android.intent.extra.PHONE_NUMBER")
            Log(myphone)
        End If
    End If

End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy

End Sub

AddPermission(android.permission.READ_PHONE_STATE)
AddReceiverText(Starter,
<intent-filter>
    <action android:name="android.intent.action.PHONE_STATE" />
</intent-filter>)


' FOR OUTGOING CALLS
AddPermission(android.permission.PROCESS_OUTGOING_CALLS)
AddReceiverText(Starter, <intent-filter>
            <action android:name="android.intent.action.NEW_OUTGOING_CALL" />
            <category android:name="android.intent.category.DEFAULT" />
        </intent-filter>)

.....
Log("FINISCE LA TELEFONATA: " & str)
            'onhook - call ended or phone idle
.......