Sms Interceptor

[merlino]

I wrote an App that intercepts a sms. I used

Sub Service_Create
Dim SI As SmsInterceptor
SI.Initialize2("SI",999)
....
....
Service.StartForeground(1,notif)

End Sub

Sub SI_MessageReceived (From As String, Body As String) As Boolean
'ToastMessageShow(From, True)

If From.Contains("123456") Then
'ToastMessageShow("OK",True)

Select Body

Case "blue"

ToastMessageShow("THIS IS BLUE",False)

Case "red"

ToastMessageShow("THIS IS RED",False)

..........
..........
Case Else

send sms to default android sms manager HOW????

End Select

Return True
End Sub

When a sms arrives I read "From" field and in according to its content the sub procedure perform some operations. If no operations are required (Case Else) can I send sms into default android sms manager ?
How can I do ?

 

[flyingbag]

In Case Else return False ( to process messages normally)
In all other cases return True ( so that youv ntercept)
Flyingbag

 

[merlino]

In Case Else return False ( to process messages normally)
In all other cases return True ( so that youv ntercept)
Flyingbag

Works!!!! Thanks :wav: