Sub Class_Globals
Private store As String
Dim MyJavaCode As JavaObject
End Sub
Public Sub Initialize ' (Target As JavaObject)
MyJavaCode.InitializeStatic(Application.PackageName & ".store_check")
End Sub
Public Sub notfromGoogle As Boolean
store = MyJavaCode.RunMethod("isappfromplaystore", Array(Application.PackageName))
If store = Null Then
Log("*** ERROR *** could not perform check")
Return False
End If
If store = "com.android.vending" Then Return False Else Return True
End Sub
Public Sub notfromGoogle2(packagename As String) As Boolean
Dim list1 As List
list1.Initialize
Dim p As PackageManager
list1 = p.GetInstalledPackages
Dim exists As Boolean = False
For i = 0 To list1.Size - 1
If list1.Get(i) = packagename Then
exists = True
Exit
End If
Next
If exists Then
Dim str As String = MyJavaCode.RunMethod("isappfromplaystore", Array(packagename))
If str = Null Then
Log("*** ERROR *** could not perform check")
Return False
Else
If str = "com.android.vending" Then Return False Else Return True
End If
Else
Log("Could not find such Packagename, make sure Packagename is correct")
Return False
End If
End Sub
Public Sub notfromAmazon As Boolean
store = MyJavaCode.RunMethod("isappfromplaystore", Array(Application.PackageName))
If store = Null Then
Log("*** ERROR *** could not perform check")
Return False
End If
If store = "com.amazon.venezia" Then Return False Else Return True
End Sub
Public Sub notfromAmazon2(packagename As String) As Boolean
Dim list1 As List
list1.Initialize
Dim p As PackageManager
list1 = p.GetInstalledPackages
Dim exists As Boolean = False
For i = 0 To list1.Size - 1
If list1.Get(i) = packagename Then
exists = True
Exit
End If
Next
If exists Then
Dim str As String = MyJavaCode.RunMethod("isappfromplaystore", Array(packagename))
If str = Null Then
Log("*** ERROR *** could not perform check")
Return False
Else
If str = "com.amazon.venezia" Then Return False Else Return True
End If
Else
Log("Could not find such Packagename, make sure Packagename is correct")
Return False
End If
End Sub
Public Sub GetInstalledPeckageList As List
Dim p As PackageManager
p.GetInstalledPackages
Return p.GetInstalledPackages
End Sub
#if JAVA
import android.content.Context;
public static String isappfromplaystore(String packageName) {
return BA.applicationContext.getPackageManager().getInstallerPackageName(packageName);
}
#end if
