سلام و خوش آمد بهتون میگم.
دوست عزیز حرف شما کاملا درسته.
میشه از طریق PhoneEvents گزارش ارسال رو دریافت کرد که ارسال شده یا نه و دریافت شده یا نه...
اما بنده توی جواب فقط اشاره کرده بودم به درخواست دوستمون.
اگه بخواهیم از خود برنامه گزارش رو دریافت کنیم کل سورس به این صورت میتونه باشه:
Sub Globals
Dim p As PhoneSms
Dim check As PhoneEvents
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
check.Initialize("check")
End Sub
Sub Button1_Click
p.Send2("09366928285","www.Basic4Android.org",True,True)
End Sub
Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
If Success=False Then
Msgbox("پیغام ارسال نشد" & ErrorMessage,"خطا")
Else
Msgbox("پیغام شما با موفقیت ارسال شد","ارسال شد")
End If
End Sub
Sub check_SmsDelivered (PhoneNumber As String, Intent As Intent)
Msgbox("پیغام شما دریافت شد","دریافت")
End Sub
موفق باشید