Sub Send_Viber(tel As String, text as String)
Dim i As Intent
i.Initialize("android.intent.action.SENDTO", "smsto:" & tel)
Dim jo As JavaObject = i
jo.RunMethod("setPackage", Array("com.viber.voip"))
i.PutExtra("android.intent.extra.TEXT", text)
i.SetType("text/plain")
i.WrapAsIntentChooser("Viber:")
StartActivity(i)
End Sub
Sub Send_Whatsup(tel As String, text as String)
Dim i As Intent
i.Initialize("android.intent.action.SENDTO", "smsto:" & tel)
Dim jo As JavaObject = i
jo.RunMethod("setPackage", Array("com.whatsapp"))
i.PutExtra("android.intent.extra.TEXT", text)
i.SetType("text/plain")
i.WrapAsIntentChooser("WhatsApp:")
StartActivity(i)
End Sub