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

[sganji 678]

با سلام

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

چنتا از دوستان این مشکل رو داشتن که اگه با کتابخونه 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 متن پیام رو بنویسید.

 

 

 

[amirjun32 105]

 

با سلام

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

چنتا از دوستان این مشکل رو داشتن که اگه با کتابخونه 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/

[sganji 678]

 

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

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

AddPermission("android.permission.SEND_SMS")

[amirjun32 105]

 

 

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

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

AddPermission("android.permission.SEND_SMS")

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

[mohammad-alone 564]

کتابخونه Reflaction رو فعال کردید ؟؟؟

[پژمان نیکروان 6,055]

سلام.

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

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

دانلود

[shahab1392 47]

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

[elysium1368 19]

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

[mohammad0064 4]

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

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