مدیریت پیامک ها

[MR.B4A 220]

سلام.

توی b4a میشه وقتی پیامکی میاد، اون رو توسط برنامه دریافت کرد و روی متنش کاری انجام داد؟

[محمدرضا شاهپیری 5,631]

درود

باید از رسیور استفاده کنید با اکشن زیر

android.provider.telephony.SMS_RECIEVED

دسترسی زیر رو هم باید بگیرید

android.permission.RECEIVE_SMS

[MR.B4A 220]

در ۱۴۰۴/۲/۲۰ در 22:01، محمدرضا شاهپیری گفته است:

درود

باید از رسیور استفاده کنید با اکشن زیر

android.provider.telephony.SMS_RECIEVED

دسترسی زیر رو هم باید بگیرید

android.permission.RECEIVE_SMS

سلام

استاد از کجا باید شروع بشه؟

من هیچ ریفرنسی ندارم

شما سورسی دارید؟

[محمدرضا شاهپیری 5,631]

در ۱۴۰۴/۲/۲۱ در 23:21، MR.B4A گفته است:

سلام

استاد از کجا باید شروع بشه؟

من هیچ ریفرنسی ندارم

شما سورسی دارید؟

اول این دسترسیها رو اضافه کنین تو منیفست. البت باید به صورت رانتایم هم بگیرینشون
 

AddPermission(android.permission.RECEIVE_SMS)

یه رسیور بسازین مثلا به نام SMSReceiver کدهای زیر رو توی منیفست براش ست کنید

AddReceiverText(SMSReceiver,
  <intent-filter>
      <action android:name="android.provider.Telephony.SMS_RECEIVED" />
    </intent-filter>
)

اینم کدهای خود رسیور

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

Private Sub Receiver_Receive (FirstTime As Boolean, 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

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