'Main
Sub SendSMS(Destination As String, Message As String)
Try
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(Destination, Null, parts, Null, Null), _
Array As String("java.lang.String", "java.lang.String", _
"java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
Log("SMS sent " & Destination)
Catch
Log(LastException)
End Try
End Sub
------------------------------------------------------------------------
'FirebaseMessage service
Sub fm_MessageArrived (Message As RemoteMessage)
Private m As Map
m.Initialize
m.Put("Phone",Message.GetData.Get("Phone"))
m.Put("Message",Message.GetData.Get("Message"))
CallSubDelayed2(Main, "SendSMS",m)
End Sub