تشخص ارسال پیامک طولانی و رسیدن به مقصد

[mobah 132]

سلام

خیلی انجمن رو زیر رو کردم کد های مختلفی هست که میشه چک کرد که تشخص ارسال sms  هست  ولی روی کد زیر جواب نمیده

 

Dim p As PhoneSms

Sub Button1_Click
	SendLargeSms("09366928285",EditText1.Text&EditText2.Text)
End Sub

Sub SendLargeSms(Number As String , Message As String)
	
   Dim r As Reflector
   r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
   Dim parts As Object
   parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
   r.RunMethod4("sendMultipartTextMessage", _
      Array As Object(Number, Null, parts, Null, Null), _
      Array As String("java.lang.String", "java.lang.String", _
      "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
End Sub

 

 

[mobah 132]

بنده برای ارسال پیامک طولانی این کد رو استفاده کردم ولی حیف شد ک نمیشه تشخیص داد که پیام رو ارسال کرده یا نه.

به هر حال ممنونم

 

از طریق phoneEvents   که فرمودید  تست کردم   ولی پیام طولانی رو ارسال نمیکنه   !   مشکل شد.

p.Send2("09366928285",EditText1.Text,True,True)

تشکر

[mobah 132]

اگر پیام به مقصد برسد و پیام بده  هم خوبه

اما اگر در حین ارسال پیام بده و وقتی هم رسید مقصد پیام بده   بهتره.

 

[mobah 132]

داخل خود این ساب نمیشه دستور تشخیص گذاشت

Sub SendLargeSms(Number As String , Message As String)

 

[mobah 132]

ببخشید سوالم پیش پا افتادس که جواب نمیدید یا سخته

یا

این کد  اصلا نمیشه برای تشخیص داد که ارسال کرده یا نه

چون بنده همه راهی رو رفتم ولی نشد.

 

الان هم نزدیک یک روز هست منتظرم وگر نه   اسپم نمیدادم    باید دوستان ببخشند

[مهدی ایزدی 9,203]

سلام عزیزم

من از این طریق بلد نیستم... 

یعنی دنبالشم نبودم که بلد باشم یا نباشم

فقط از طریق خود phoneEvents بلدم که فکر کنم خودتون هم بلد باشید