ارسال اس ام اس و فهمیدن رفتن یا نرفتن اس ام اس

با سلام

 

دیدم همه سپاس دادن مشتاق شدم یک آموزش زیبایی دیگر هم بزارم .

 

  • اول دوتا ادیت تکست به پروژه میکنیم و یک باتن هم اضافه میکنیم.
  • دوم  به برنامه معرفی می کنیم.

 

Private syededit As EditText

Private syededit2 As EditText

Private syedbtn as button

 

  • حالا در ساب Sub Globals می نویسیم

 

Dim syed As PhoneSms
  • و بعد :

 

Sub syedbtn_click

syed.Send(syededit.Text , syededit2.Text)

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

ان شا ء الله که مفید واقه بشه …

دیدگاهتان را بنویسید