من با کتابخانه smsplas و کد زیر آخرین پیام را حذف می کنم البته تو اندروید 4.2 تست کردم مشکلی نداره
اما تو اندروید 5.1 تست کردم حذف نمی کنه آیا راهی وجود داره که آخرین sms را تو همه گوشی ها پاک کنه
Dim Num As String
Dim Status As Boolean
Dim SmsMessage As SmsMessages
Dim LstSms As List
LstSms.Initialize
LstSms = SmsMessage.GetAll
For i = 0 To LstSms.Size - 1
Dim Smss As Sms
Smss = LstSms.Get(0)
' Smss = LstSms.Get(0) akharin sms
'Smss = LstSms.Get(i) all sms
Num = Smss.Address
If Num.Contains("+989300000000") = True Or Num.Contains("09300000000") = True Then
Status = SmsMessage.deletesms(Smss.Id)
End If
Next
سوال
shahan148 28
با سلام و خسته نباشید به دوستان برنامه نویس
من با کتابخانه smsplas و کد زیر آخرین پیام را حذف می کنم البته تو اندروید 4.2 تست کردم مشکلی نداره
اما تو اندروید 5.1 تست کردم حذف نمی کنه آیا راهی وجود داره که آخرین sms را تو همه گوشی ها پاک کنه
Dim Num As String Dim Status As Boolean Dim SmsMessage As SmsMessages Dim LstSms As List LstSms.Initialize LstSms = SmsMessage.GetAll For i = 0 To LstSms.Size - 1 Dim Smss As Sms Smss = LstSms.Get(0) ' Smss = LstSms.Get(0) akharin sms 'Smss = LstSms.Get(i) all sms Num = Smss.Address If Num.Contains("+989300000000") = True Or Num.Contains("09300000000") = True Then Status = SmsMessage.deletesms(Smss.Id) End If Nextلینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.