German QUERY_ALL_PACKAGES - Alternative gesucht.

Sub Button1_Click

    If isPackageInstalled("com.whatsapp") Then
        Log("Installiert!")
    Else
        Log("NICHT Installiert!")
    End If
            
End Sub

Private Sub isPackageInstalled(packageName As String) As Boolean
    Dim Intent1 As Intent
    Dim pm As PackageManager
    Intent1 = pm.GetApplicationIntent(packageName)
    Return Intent1.IsInitialized
End Sub

'This code will be applied to the manifest file during compilation.
'You do not need to modify it in most cases.
'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136
AddManifestText(
<queries>
    <package android:name="com.whatsapp"/>
    <package android:name="com.whatsapp.w4b"/>
</queries>
<uses-sdk android:minSdkVersion="14" android:targetSdkVersion="30"/>
<supports-screens android:largeScreens="true"
    android:normalScreens="true"
    android:smallScreens="true"
    android:anyDensity="true"/>)
SetApplicationAttribute(android:icon, "@drawable/icon")
SetApplicationAttribute(android:label, "$LABEL$")
SetApplicationAttribute(android:theme, "@android:style/Theme.Holo")
AddPermission("android.permission.READ_CONTACTS")
AddPermission("android.permission.WRITE_CONTACTS")
AddPermission(android.permission.CALL_PHONE)
AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)
AddPermission(android.permission.READ_EXTERNAL_STORAGE)
AddPermission(android.permission.MOUNT_UNMOUNT_FILESYSTEMS)
AddPermission(android.permission.INTERNET)
'End of default text.