ارسال پیامک اتوماتیک؟

[vistamobile 1,700]

سلام. چجوری به برنامه بگم که اگر از شماره خاصی پیامک اومد بفرستش به اون یکی خطم؟ 

من دوتا گوشی دارم و هر دو تک سیم کارته. حالا به ذهنم رسید خودم برنامشو بسازم. میخوام اگر دوتا شماره پیامکی بانک و فروشگاهم که هر روز پیام میدن ، پیام اومد به خط اولم ، اتوماتیک بفرستم به خط دومم. تو اینترنت هی برنامه بود که رو گوشیم ایراد داره و فقط از میتونم بگم که از یکی پیام رو بده . تو بیسیک میشه کلا؟ 

[Elyas Erfani 3,582]

سلام مختار عزیز

 

بیا و با سرویس و با استفاده از کتابخانه Phone و تابع SmsInterceptor دریافت کن اس ام اس رو در سرویس و بهش بگو اگه از شماره فلان بود بفرستش به شماره ی دیگه >

 

ب این صورت :

 

توی پروسس گلوبال سرویس :

Dim si As SmsInterceptor

در سرویس کریت :

si.Initialize("si")

در سرویس استارت :

StartServiceAt("",DateTime.Now + 0.1*DateTime.TicksPerMinute,False)

و ساب زیر رو ایجاد کن واسه دریافت و شرط رو بذار :

Sub si_MessageReceived (From As String, Body As String) As Boolean
  If From = "شماره دریافتی" Then
  	Dim sms As PhoneSms
	sms.Send("شماره مقصد" , Body)
	ToastMessageShow("ارسال شد",True)
End If
End Sub  

دسترسی های زیر رو هم اضافه کن ب منیفست :

AddPermission("android.permission.SEND_SMS")
AddPermission("android.permission.RECEIVE_SMS")

خوب دیگه تمومه موفق باشید