احتمالا میدانید که هنگام ارسال اس ام اس یا پیامک با استفاده از کتابخانهی 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") |
نظرات ثبت شده بدون دیدگاه