رفتن به مطلب

آموزش ارسال پیامک طولانی


sganji

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

با سلام

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

چنتا از دوستان این مشکل رو داشتن که اگه با کتابخونه Phone پیامک ارسال کنیم و متن طولانی باشه پیامک ارسال نمیشه.

یه فانکشن که نیاز به کتابخونه Reflection داره و از سایت مرجع پیدا کردم رو براتون میزارم:



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


دیگه کاملا واضحه به جای Number شماره و به جای Message متن پیام رو بنویسید.

 

 

 

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

 

با سلام
با یه آموزش باحال و کاربردی در خدمتتون هستم
چنتا از دوستان این مشکل رو داشتن که اگه با کتابخونه Phone پیامک ارسال کنیم و متن طولانی باشه پیامک ارسال نمیشه.
یه فانکشن که نیاز به کتابخونه Reflection داره و از سایت مرجع پیدا کردم رو براتون میزارم:
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
دیگه کاملا واضحه به جای Number شماره و به جای Message متن پیام رو بنویسید.

 

ببخشید،این کدتون مجوز خاصی رو لازم داره یانه؟چون از وقتی گذاشتمش برنامم این خطارو میده.

http://answercenter.ir/topic/3764-%D8%B9%D9%84%D8%AA-%D8%A7%DB%8C%D9%86-%D8%AE%D8%B7%D8%A7/

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

 

بله حواسم نبود به دسترسی ارسال پیامک نیاز داره.

توی Manifest Editor کد زیر رو وارد کنید:

AddPermission("android.permission.SEND_SMS")
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

 

بله حواسم نبود به دسترسی ارسال پیامک نیاز داره.

توی Manifest Editor کد زیر رو وارد کنید:

AddPermission("android.permission.SEND_SMS")

من این کدروهم زدم.ولی بازم خطا میگیره

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

سلام.

حتما شما جایی رو اشتباه کرده بودین.

همین آموزشی که سپهر جان دادن سورسش رو آماده کردم و براحتی متن طولانی رو فرستاد.

دانلود

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

باز مثل همیشه عالی بود :tashvigh: :tashvigh: :tashvigh: :tashvigh: :tashvigh:

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

  • 4 ماه بعد...

ممنون از این کمک. حالا با این روش راهی هست که به ما نشون بده که پیامک ارسال شده یا اینکه دلیور شده؟! 

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

  • 3 هفته بعد...

ممنون از این کمک. حالا با این روش راهی هست که به ما نشون بده که پیامک ارسال شده یا اینکه دلیور شده؟! 

Sub Globals
Dim check As PhoneEvents
End Sub

Sub check_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent(
If Success=False Then
Msgbox("پیغام ارسال نشد" & ErrorMessage,"خطا")
Else
Msgbox("پیغام شما با موفقیت ارسال شد","ارسال ")
End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

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

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