تابع ارسال پیامک طولانی در بیسیک ۴ آندروید

با سلام و سپاس

 

خدمت کاربران عزیز وب سایت یاهو ۹۸

 

شاید برای شما هم اتفاق افتاده باشد که بخواهید

 

اس ام اس بلند ( طولانی ) رو در بیسیک فور اندروید ارسال کنید که به مشکل عدم ارسال بر بخورید.

 

با تابع زیر میتونید کامل این مشکل رو برطف کنید و محدودیت رو بردارید.

 

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

 

در این کد با استفاده از Reflection و دسترسی به کدجاوا تابعی بدین منظور نوشته شده است.

 

اکر کتابخانه مورد نظر در دسترس شما قرار نداشت کافیه فقط با آیدی تلگرام ما در ارتباط باشید.

 

آیدی تلگرام : crypt3r@

 

کانال ما در تلگراک : YAHOO98@

 

نکته: دسترسی را در فایل منیفست اضافه کنید حتما

AddPermission("android.permission.SEND_SMS")

موفق باشید.