Android Question Trying to intercept SMS messages

Sub Activity_Create(FirstTime As Boolean)
   
    Activity.LoadLayout("EnvioSMS")
    Activity.Title = Chr(0xF1FA) & "Envio de SMS/MAIL"
   
    rp.CheckAndRequest(rp.PERMISSION_SEND_SMS)
    rp.CheckAndRequest(rp.PERMISSION_READ_SMS)
   
    Timer1.Initialize("Timer1",5000)
    Timer1.Enabled = False
       
End Sub

Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    If Permission = rp.PERMISSION_SEND_SMS Then
        'gmap.MyLocationEnabled = Result
    End If
End Sub

Registo conectado a:  HUAWEI ALE-L23
--------- beginning of main
*** Service (starter) Create ***
** Service (starter) Start **
** Activity (main) Create, isFirst = true **
Params no existe y dbInstalada= 1
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (main) Resume **
** Activity (main) Pause, UserClosed = false **
** Activity (enviosms) Create, isFirst = true **
** Activity (enviosms) Resume **
** Activity (enviosms) Pause, UserClosed = false **
sending message to waiting queue (activity_permissionresult)
running waiting messages (1)
** Activity (enviosms) Resume **
>>>>>>>>>>>>>>>>>>>>>>here is when i push a button and start de service<<<<<<<<<<<<<<<<<
*** Service (readsmsservice) Create ***
** Service (readsmsservice) Start **
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **

#Region  Service Attributes
    #StartAtBoot: False
   
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Type Message (Address As String, Body As String)
End Sub

Sub Service_Create

End Sub

Sub Service_Start (StartingIntent As Intent)
    'Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
    If StartingIntent.Action = "android.provider.Telephony.SMS_RECEIVED" Then
        Dim messages() As Message
        messages = ParseSmsIntent(StartingIntent)
        For i = 0 To messages.Length - 1
            Log(messages(i))
        Next
    End If
    Service.StopAutomaticForeground
End Sub

'Parses an SMS intent and returns an array of messages
Sub ParseSmsIntent (in As Intent) As Message()
    Dim messages() As Message
    If in.HasExtra("pdus") = False Then Return messages
    Dim pdus() As Object
    Dim r As Reflector
    pdus = in.GetExtra("pdus")
    If pdus.Length > 0 Then
        Dim messages(pdus.Length) As Message
        For i = 0 To pdus.Length - 1
            r.Target = r.RunStaticMethod("android.telephony.SmsMessage", "createFromPdu", _
            Array As Object(pdus(i)), Array As String("[B"))
            messages(i).Body = r.RunMethod("getMessageBody")
            messages(i).Address = r.RunMethod("getOriginatingAddress")
        Next
    End If
    Return messages
End Sub

Sub Process_Globals
    Type Message (Address As String, Body As String)
    Dim dane1 As String
    Dim dane2 As String
   
End Sub

Sub Service_Create
   
    Service.AutomaticForegroundMode = Service.AUTOMATIC_FOREGROUND_ALWAYS
   
End Sub

Sub Service_Start(startingIntent As Intent)
   
    If startingIntent.Action = "android.provider.Telephony.SMS_RECEIVED" Then
        Dim messages() As Message
        messages = ParseSmsIntent(startingIntent)
        For i = 0 To messages.Length - 1
            Log(messages(i))
        Next
    End If
   
    Service.StopAutomaticForeground
   
End Sub

'Parses an SMS intent and returns an array of messages
Sub ParseSmsIntent (in As Intent) As Message()
   
    Dim messages() As Message
    If in.HasExtra("pdus") = False Then Return messages
    Dim pdus() As Object
    Dim r As Reflector
    pdus = in.GetExtra("pdus")
    If pdus.Length > 0 Then
        Dim messages(pdus.Length) As Message
        For i = 0 To pdus.Length - 1
            r.Target = r.RunStaticMethod("android.telephony.SmsMessage", "createFromPdu", _
            Array As Object(pdus(i)), Array As String("[B"))
           
            messages(i).Body = r.RunMethod("getMessageBody")
            messages(i).Address = r.RunMethod("getOriginatingAddress")
            dane1= messages(i).Body
            log(dane1)
            dane2= messages(i).Address
            akcja
            log(dane2)
            Service.StopAutomaticForeground
        Next
    End If
    Return messages
   
End Sub

Sub akcja

            Service.StopAutomaticForeground
            CallSubDelayed(Main, "startalarm")
            StartActivity("main")
            StopService(Me)  
End Sub

android:targetSdkVersion="24"

    rp.CheckAndRequest(rp.PERMISSION_SEND_SMS)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        'Flow program continues if true
        'Call a sub or put your routine here
    End If
    Log("Permiso send SMS: " & Result)
    
    rp.CheckAndRequest(rp.PERMISSION_READ_SMS)
    Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then
        'Flow program continues if true
        'Call a sub or put your routine here
    End If
    Log("Permiso read SMS: " & Result)

'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: https://www.b4x.com/forum/showthread.php?p=78136
AddManifestText(
<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="28"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
'End of default text.
AddPermission(android.permission.RECEIVE_SMS)
AddReceiverText(readsmsservice,
<intent-filter>
    <action android:name="android.provider.Telephony.SMS_RECEIVED" />
</intent-filter>)

AddPermission(android.permission.SEND_SMS)