ارور هنگام حذف پیامک

[ehsan20000 16]

بااینکار لیست تمام پیامک های اینباکس گرفته میشه:
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(i)
Num = Smss.Address

If Num.Contains("9388091472") Then
Status = SmsMessage.deletesms(Smss.Id)
If Status Then
ToastMessageShow("Deleted!",False)
End If
End If
Nextاینجا اومدیم توی لیست گشتیم از پیامکی از شماره 9388091472 اومده بود حذف بشه.

اگه میخواین آخرین پیامک دریافت شده رو حذف کنیم فکر کنم آیتم 0 LstSms باشه. که میگیردش و میریزید توی smssSmss=LstSms.Get(0)کلا بااینا پیش برید میتونید به جواب برسید.
همچنین یادتون باشه حذف رو توی رویداد دریافت اس ام اس با SmsInterceptor انجام بدید.

درود

 

این کدی هست که برای حذف کردن پیامک بعد دریافت از شماره مشخصی هست که پژمان عزیز زحمتشو کشیدن من دقیقا از همین کد استفاده میکنم ولی ارور میده

 

[Elyas Erfani 3,582]

NullPointerException معمولا وقتی رخ میده که شما ی چیزیو فراموش کردید تعریف کنید یا یه مقداره تهی داریم

 

لطفا کامل کدا رو قرار بدید تا بررسی بشه !

[ehsan20000 16]

NullPointerException معمولا وقتی رخ میده که شما ی چیزیو فراموش کردید تعریف کنید یا یه مقداره تهی داریم

 

لطفا کامل کدا رو قرار بدید تا بررسی بشه !

Sub Globals
Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    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(i)
 Num = Smss.Address
 If Num.Contains(EditText1.text) Then
  Status = SmsMessage.deletesms(Smss.Id)
 If Status Then
     ToastMessageShow("Deleted!",False)
  End If
  End If
Next

End Sub

[ehsan20000 16]

یعنی هیچکسی با حذف پیامک کار نکرده بتونه به ما کمک کنه؟