با سلام

 

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

 

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

 

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

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