رفتن به مطلب
  • 0

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


rayanoos

سوال

سلام.

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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 استفاده کنی برای نمایش اخرین پیامک

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...