لیست برنامه های کاربر نصب کرده بدون PackageManager2(حل شده)

[hosseinkarimian 100]

سلام دوستان چطور میشه لیست برنامه هایی که خود کاربر نصب کرده نه برنامه های سیستمی بدون استفاده از کتابخانه PackageManager2

[hosseinkarimian 100]

Sub isSystemapp(app As String) As Boolean
	Dim Obj1, Obj2, Obj3 As Reflector
	Dim size, i, flags As Int
	Dim result As Boolean = False

	Obj1.Target = Obj1.GetContext
	Obj1.Target = Obj1.RunMethod("getPackageManager") ' PackageManager
	Obj1.Target = Obj1.RunMethod2("getInstalledPackages", 0, "java.lang.int") ' List<PackageInfo>
	For i = 0 To Obj1.RunMethod("size") -1
		Obj2.Target = Obj1.RunMethod2("get", i, "java.lang.int") ' PackageInfo
		Dim name As String = Obj2.GetField("packageName")
		If app.ToLowerCase = name.ToLowerCase Then
			Obj3.Target = Obj2.GetField("applicationInfo") ' ApplicationInfo
			flags = Obj3.GetField("flags")
			If Bit.And(flags, 1)  = 0 Then
				'app is not in the system image
			Else
				' Systemapp
				result = True
			End If
		End If
	Next
	Return result
End Sub

حل شد

 

		
	Log("isSystemapp(com.whatsapp):"&isSystemapp("com.whatsapp"))
	Log("isSystemapp(com.android.phone):"&isSystemapp("com.android.phone"))