خطا در ارسال متن از طریقه sms

[alijafari 11]

بنده اطلاعات پایگاه داده فراخوانی کرده و در edittext قرار داده و از یک دکمه برای ارسال متن از طریق sms استفاده کرده ام که برای دریافت شماره از inputdialog استفاده کردم ولی وقتی شماره را وارد می کنم وروی گزینه قبول کلیک می کنم با خطای

 An error has occured in sub:java.lang.SecurityExceptionending SMS message :user 10119 dosenot  have android.SEND_SMS. 

مواجه می شوم در ضمن کده ها به شرح زیر است

Sub btnsend_Click
Dim d1 As InputDialog

d1.InputType = d1.INPUT_TYPE_PHONE
d1.Hint = "فرمت 09000000000"
d1.HintColor = Colors.LightGray
d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif"))
 If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then

myCode.SendLargeSms(d1.Input,txttrick.Text)
  myCode.playBeep
End If
End Sub

Sub SendLargeSms(Destination 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(Destination, Null, parts, Null, Null), _
 Array As String("java.lang.String", "java.lang.String", _
 "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))

End Sub

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

[ارمین رمضانی دلیجانی 381]

دوست عزیز از تاپیک اولی شما هیچی متوجه نشدم کد هاتونو تو تگ php قرار بدید مرسی

شما میخای متنی که تو دیتابیس داری بریزی تو یه edit text و از اونجا یه شماره بدی و وقتی رو کلیک ارسال شد کلیک کردی اون متن ارسال شه به اون شماره؟

تشکر

[alijafari 11]

دوست عزیز از تاپیک اولی شما هیچی متوجه نشدم کد هاتونو تو تگ php قرار بدید مرسی

شما میخای متنی که تو دیتابیس داری بریزی تو یه edit text و از اونجا یه شماره بدی و وقتی رو کلیک ارسال شد کلیک کردی اون متن ارسال شه به اون شماره؟

تشکر

دقیقا بله ولی با خطا قید شده مواجه شدم

Sub SendLargeSms(Destination 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(Destination, Null, parts, Null, Null), _
 Array As String("java.lang.String", "java.lang.String", _
 "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))

End Sub

Sub btnsend_Click
Dim d1 As InputDialog

d1.InputType = d1.INPUT_TYPE_PHONE
d1.Hint = "فرمت 09000000000"
d1.HintColor = Colors.LightGray
d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif"))
 If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then

myCode.SendLargeSms(d1.Input,txttrick.Text)
  myCode.playBeep

End If
End Sub

خطا هم به شرح فوق است

An error has occured in sub:java.lang.SecurityExceptionending SMS message :user 10119 dosenot  have android.SEND_SMS.

[نیما قبادی 246]

شما با این روش میخواید مخاطب های ذخیره شده توی گوشیتونو بیارید بالا؟

[alijafari 11]

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