Dim pmx As PMX
Dim PM As PackageManager
Dim availablepackages As List= PM.GetInstalledPackages
If availablepackages.IsInitialized= True Then
For lp= 0 To availablepackages.Size - 1
Dim packagename As String= availablepackages.Get(lp)
If packagename.ToLowerCase.Contains("smessenger")= True Then
LogColor("found " & packagename, Colors.blue)
If pmx.getAppStatus(packagename) Then
LogColor(packagename & " is deactivated", Colors.red)
Else
LogColor(packagename & " is NOT deactivated", Colors.blue)
End If
Else If packagename.ToLowerCase.Contains("com.android.chrome")= True Then
LogColor("found " & packagename, Colors.blue)
If pmx.getAppStatus(packagename) Then
LogColor(packagename & " is deactivated", Colors.red)
Else
LogColor(packagename & " is NOT deactivated", Colors.blue)
End If
End If
Next
End If