Dim i As Intent
Dim pm As PackageManager
Dim mensaje, mensaje2, mensajef As String
mensaje= "Comiendo un subway del día de "& Label3.text
mensaje2= "https://graph.facebook.com/Subway/"
mensajef=mensaje &" "& mensaje2
i = pm.GetApplicationIntent("com.twitter.android")
If i.IsInitialized Then
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
'i.PutExtra("text", mensaje)
i.PutExtra("android.intent.extra.TEXT", mensajef)
StartActivity(i)
Else
ToastMessageShow("Aplicación no esta instalada", False)
End If
---------------------------
But it does not, just open the blank facebook.
and if it is for twitter, facebook becomes open
Twitter-----------------------------
Dim i As Intent
Dim pm As PackageManager
Dim mensaje, mensaje2, mensajef As String
mensaje= "Comiendo un subway del día de "& Label3.text
mensaje2= "https://graph.facebook.com/Subway/"
mensajef=mensaje &" "& mensaje2
i = pm.GetApplicationIntent("com.facebook.katana")
If i.IsInitialized Then
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
'i.PutExtra("text", mensaje)
i.PutExtra("android.intent.extra.TEXT", mensajef)
StartActivity(i)
Else
ToastMessageShow("Aplicación no esta instalada", False)
End If