#Region Project Attributes
#ApplicationLabel: sms test
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private Bsendlarg As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SendLargeSms(Destination 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")
Log(parts)
Log(Destination)
r.RunMethod4("sendMultipartTextMessage", _
Array As Object(Destination, Null, parts, Null, Null), _
Array As String("java.lang.String", "java.lang.String", _
"java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
End Sub
Private Sub Bsendlarg_Click
Dim message As String
Dim number As String
number="+989371111111"
message="1234567890 1234567890 "
message=message&CRLF&message&CRLF&message&CRLF&message&CRLF&message&CRLF&message&CRLF&message&CRLF&"1234567"
Log(message.Length)
SendLargeSms(number,message)
End Sub