سلام و خسته نباشید خدمت همه دوستان، مخصوصاً آقای منصوری عزیز که واقعاً زحمت میکشن
چنتا سوال داشتم که اگه جواب بدید واقعاً ممنونتون میشم :
کد های زیر رو واسه ارسال و تایید ارسال اس ام اس توشتم :
بعد ا زنوشتن این کد ها :
کد:
Sub Globals
Dim BtnSendSMS As Button
Dim Sms As Sms
Dim PhoneId As PhoneId
Dim PE As PhoneEvents
Dim sendsms As PhoneSms
End Sub
'-------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Gol")
If FirstTime Then
PE.InitializeWithPhoneState("PE", PhoneId)
End If
End Sub
با این کد ، چنتا اس ام اس به شماره 11111111111 ارسال میکنم :
کد:
Sub BtnSendSMS_Click
sendsms.Send(“Test 1” , “11111111111” )
sendsms.Send(“Test 2” , “11111111111” )
sendsms.Send(“Test 3” , “11111111111” )
End Sub
و با تعریف این رویداد میتونم تشخیص بدم که اس ام اس بدون مشکل ارسال شده :
کد:
Sub pe_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
If Success =true Then
ToastMessageShow("پیام ارسال شد",True)
Else
Msgbox( ErrorMessage, " پیام ارسال نشد " & PhoneNumber)
End If
End Sub
حالا با این کد هم میتونم تشخیص بدم که پیام به شماره مورد نظر تحویل داده شده :
کد:
Sub pe_SmsDelivered (PhoneNumber As String, Intent As Intent)
Msgbox("پیام تحویل داده شد" , PhoneNumber )
End Sub
در کد بالا از متغییر PhoneNumber میشه فهمید که Delivery کدوم شماره هستش اما مشکل من اینجاست که اگه چنتا اس ام اس همزمان به یک شماره بفرستم بطوری که Delivery شون هنوز نیومده از کجا بفهمم کدون Delivery واسه کدوم پیام هستش ؟؟؟؟
و سوال دوم : چیکار کنم که وقتی برنامه نصب شد و با راه اندازی مجدد تلفن دیگه نیازی به اجراء دوباره برنامه نباشه ، برنامه بطور خودکار اجرا شه و همیشه هم فعال باشه ؟؟؟؟؟
خیلی خیلی ممنون میشم اگه جوابمو بدید ، خیلی تلاش کردم اما نشد!
)