مشکل در ارسال 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  

[مصطفی حقیقی 176]

سلام داداش

برای ارسال sms باید یک permission به manifest خودت اضافه کنی

شما یه Dim ps As PhoneSms به اول کد ارسالت اضافه کن حل میشه

یعنی اینجوری

Sub SendLargeSms(Destination As String, Message As String)
Dim ps As PhoneSms
 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  

[alijafari 11]

سلام داداش

برای ارسال sms باید یک permission به manifest خودت اضافه کنی

شما یه Dim ps As PhoneSms به اول کد ارسالت اضافه کن حل میشه

یعنی اینجوری

Sub SendLargeSms(Destination As String, Message As String)
Dim ps As PhoneSms
 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  

آقا من تابع فراخوانی کردم و متن از طریق تابع به یک شماره خاص ارسال کردم ولی جواب نداد ولی بازم خوشبختانه دیگه با خطا قید شده مواجه نشدم.در ضمن بنده دستور فوق را مستقیم در برنامه قرار دادم بازم 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 
 Dim ps As PhoneSms
 Dim r As Reflector
 r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
 Dim parts As Object
 parts = r.RunMethod2("divideMessage",txttrick.Text, "java.lang.String")
 r.RunMethod4("sendMultipartTextMessage", _
 Array As Object(d1.Input, Null, parts, Null, Null), _
 Array As String("java.lang.String", "java.lang.String", _
 "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
 'myCode.SendLargeSms(d1.Input,loadData2(sID))
  myCode.playBeep
'   ToastMessageShow("لینک گزینه انتخاب شده ارسال شد",False)
End If
End Sub

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

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

موفق باشید