برداشت آخرین sms

[Coocala 35]

سلام.

چطور باید متن اخرین sms رو بردارم و وارد یه ادیت تکست کنم؟

تو سایت سرچ کردم ولی چیزی پیدا نکردم.

[mohammad3250 206]

Sub Message(Body As String)
    Dim SmsMessages1 As SmsMessages
    Dim List1 As List
    List1 = SmsMessages1.GetAll
	For i = 0 To List1.Size - 1
		Dim Sms As Sms
		Sms = List1.Get(i)
	    If Sms.Body = Body Then
		    Dim id As String = Sms.id
			Dim addr As String = Sms.Address
			Dim bd As String = Sms.Body
			'hamin to ta akhar
		End If
	Next
End Sub

میتونی Sms = List1.Get(i) اینجا به جای i از 0 استفاده کنی برای نمایش اخرین پیامک

[Coocala 35]

مرسی