دریافت پیامک با BroadcastReceiver

کد:
#Region  Service Attributes 

    #StartAtBoot: True

    #StartCommandReturnValue: android.app.Service.START_STICKY

#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 )

    Dim db As SQL

    db.Initialize( File.DirInternal, "blockit.sqlite", True )

    Dim BroadCast As BroadCastReceiver

End Sub



Sub Service_Create

    BroadCast.Initialize( "Interceptor" )

End Sub



Sub Service_Start (StartingIntent As Intent)

    Log( "Service started" )

    BroadCast.addAction( "android.provider.Telephony.SMS_RECEIVED" )

    BroadCast.addAction( BroadCast.SMS_RECEIVED )

    BroadCast.SetPriority( 13780927 )

    BroadCast.registerReceiver( "" )

    

    Log( "BroadcastReceiver prepared" )

End Sub



Sub Service_Destroy

    

End Sub



Sub Interceptor_OnReceive( Action As String )

    

End Sub