ارسال پیامک در اندروید 5.1

[mobah 132]

سلام

کد ارسال پیامک

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
  با دستور زیر هم تو اندروید4.2.2 ارسال میشه

SendLargeSms(EditText2.Text,EditText1.Text)

و

p.Send2(EditText2.Text,EditText1.Text,False,True)

 

 این دستور ها در اندروید 4.2.2   پیامک را ارسال میکند ولی در اندروید  5.1  ارسال انجام نمیشه و خطایی هم نمایش نمیده فقط در یک مورد بنده خطا دیدم که  عکس را ضمینه میکنم

در ضمن بنده از سرویس استفاده کردم .

در اندروید های پایین جواب میده و ارسال انجام میشه ولی موندم چرا در اندروید  5.1  پیام ارسال نمیکنه

[mobah 132]

اگر بخوام از مسنجر گوشی استفاده کنم مثلا:

Dim In As Intent
Dim shomare = "0912222222" As String
In.Initialize(In.ACTION_VIEW, "sms:" & shomare)
In.PutExtra("sms_body", "")
StartActivity(In)

این کد بالا جواب میده

 

 

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

کد هاش در پست اول هست

این روش رو هم تست کردم تو اندروید 5.1 جواب نمیده

 

[محمدرضا شاهپیری 5,561]

خب از همون اول اینو بگو عزیز

کاری نداره شما کتابخونه sendsms رو تیک بزن و به شکل زیر استفاده کن

Dim senn As SendSms
senn.sendSms("number","msage")

تو اندروید 5 هم تست شده و مشکلی نداره چون با کتابخونه جوا نوشته شده

sendsms.zip