[m.gooooolzar]

سلام و خسته نباشید خدمت همه دوستان، مخصوصاً آقای منصوری عزیز که واقعاً زحمت میکشن
چنتا سوال داشتم که اگه جواب بدید واقعاً ممنونتون میشم :
کد های زیر رو واسه ارسال و تایید ارسال اس ام اس توشتم :
بعد ا زنوشتن این کد ها :

کد:

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 واسه کدوم پیام هستش ؟؟؟؟
 
و سوال دوم : چیکار کنم که وقتی برنامه نصب شد و با راه اندازی مجدد تلفن دیگه نیازی به اجراء دوباره برنامه نباشه ، برنامه بطور خودکار اجرا شه و همیشه هم فعال باشه ؟؟؟؟؟
خیلی خیلی ممنون میشم اگه جوابمو بدید ، خیلی تلاش کردم اما نشد!