تشخیص پیامک دریاف شده

[Unknown 0]

سلام

من میخام یه برنامه بنویسم که وقتی پیامک اومد رو گوشی اون رو توی یک صحفه نشون بده به کاربرمون

ub sms1_MessageReceived (From As String, Body As String) As Boolean

این کد مال فهمیدن پیام ارسال شده هست

اما نمیدونم چطور پیام دریاف شده رو تشخیص بدم

به جای Received گذاشتم  Sended ولی عمل نکرد

لطفا در این مورد راهنمایی کنید

 

[ehspor 37]

Sub smsReader
	
		Dim SmsMessages1 As SmsMessages
		Dim List1 As List
		List1 = SmsMessages1.GetByType(SmsMessages1.TYPE_INBOX)
 	List1 = SmsMessages1.GetAll
	For i = 0 To List1.Size - 1    
	    Dim Sms As Sms
	    Sms = List1.Get(i) 
	    If Sms.Address= "+989371859998" Then  
			   
	         Log(Sms.Body)
	    End If
	Next
	

	
	
	
	
End Sub

این تا بع رو فرا خوانی کن در ضمن شرط شماره را یادت نره برداری

[پژمان نیکروان 6,055]

این مطالب همشون قبلا تو سایت هست ، ولی چون دامنه عوض شده و هنوز جدید ها ایندکس نشدن نمیشه سرچ کرد

 

کتابخانه فون رو تیک بزنید.

و کدهای زیر....

Sub Globals
	Dim p As SmsInterceptor
End Sub

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

End Sub
Sub p_MessageReceived (From As String, Body As String) As Boolean
	From 'شماره تلفن ارسال کننده
	Body 'متن پیام
End Sub