احتمالا میدانید که هنگام ارسال اس ام اس یا پیامک با استفاده از کتابخانهی Phone، در صورت طولانی بودن متن ارسال نخواهد شد. برای حل مشکل میتوانید از تابع زیر استفاده کنید:
|
1 2 3 4 5 6 7 8 9 10 |
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 |
دسترسی زیر را نیز به پروژه اضافه کنید:
|
1 |
AddPermission("android.permission.SEND_SMS") |
کانال تلگرام فول کده
نظرات ثبت شده بدون دیدگاه