iOS Question Share in specific apps

    If Main.App.CanOpenURL("viber://forward?text=Hello%2C%20World!") Then
        Main.App.OpenURL("viber://forward?text=Hello%2C%20World!")
    Else
        hd.ToastMessageShow("App not present", True)
    End If

'And for whatsapp

    If Main.App.CanOpenURL("whatsapp://send?text=Hello%2C%20World!") Then
        Main.App.OpenURL("whatsapp://send?text=Hello%2C%20World!")
    Else
        hd.ToastMessageShow("App not present", True)
    End If

Dim no As NativeObject = avc





    Dim excludedActivities As List


    excludedActivities.Initialize





    'Twitter, Weibo, Message, Mail, Print, Pasteboard, Assign To Contact, Camera Roll, Reading List, Flickr, Vimeo, Tencent Weibo, AirDrop, Freeform, Journal


    excludedActivities.Add("com.apple.UIKit.activity.PostToTwitter")


    excludedActivities.Add("com.apple.UIKit.activity.PostToWeibo")


    excludedActivities.Add("com.apple.UIKit.activity.Message")


    excludedActivities.Add("com.apple.UIKit.activity.Mail")


    excludedActivities.Add("com.apple.UIKit.activity.Print")


    excludedActivities.Add("com.apple.UIKit.activity.CopyToPasteboard")


    excludedActivities.Add("com.apple.UIKit.activity.AssignToContact")


    excludedActivities.Add("com.apple.UIKit.activity.SaveToCameraRoll")


    excludedActivities.Add("com.apple.UIKit.activity.AddToReadingList")


    excludedActivities.Add("com.apple.UIKit.activity.PostToFlickr")


    excludedActivities.Add("com.apple.UIKit.activity.PostToVimeo")


    excludedActivities.Add("com.apple.UIKit.activity.PostToTencentWeibo")


    excludedActivities.Add("com.apple.UIKit.activity.AirDrop")








    ' Reminders, Notes, Slideshow


    excludedActivities.Add("com.apple.reminders.sharingextension") ' Reminders


    excludedActivities.Add("com.apple.mobilenotes.SharingExtension") ' Notes


    excludedActivities.Add("com.apple.mobileslideshow.StreamShareService") ' Slideshow





    ' Eklenen aktiviteler


    excludedActivities.Add("com.apple.UIKit.activity.CollaborationCopyLink")


    excludedActivities.Add("com.apple.UIKit.activity.CollaborationInviteWithLink")


    excludedActivities.Add("com.apple.UIKit.activity.MarkupAsPDF")


    excludedActivities.Add("com.apple.UIKit.activity.OpenInIBooks")


    excludedActivities.Add("com.apple.UIKit.activity.PostToFacebook")


    excludedActivities.Add("com.apple.UIKit.activity.SharePlay")











    ' ExcludedActivityTypes'ı ayarla


    Dim no As NativeObject = avc


    no.SetField("excludedActivityTypes", excludedActivities)





    ' ActivityViewController'ı göster


    avc.Show(mp, mp.RootPanel)