رفتن به مطلب
  • 0

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


alijafari
 اشتراک گذاری

سوال

بنده اطلاعات پایگاه داده فراخوانی کرده و در 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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

  • 0

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

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

تشکر

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0
دوست عزیز از تاپیک اولی شما هیچی متوجه نشدم کد هاتونو تو تگ 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.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
 اشتراک گذاری

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...