Dim p As Phone
If p.SdkVersion >= 23 Then
Dim jo As JavaObject
jo.InitializeStatic("android.content.Context")
Dim jo2 As JavaObject
jo2.InitializeContext
jo2 = jo2.RunMethodJO("getSystemService", Array(jo.GetField("POWER_SERVICE")))
Dim batteryIgnore As Boolean = jo2.RunMethod("isIgnoringBatteryOptimizations", Array(Application.PackageName))
Log ("Battery optimization ignored: " & batteryIgnore) ' should be TRUE if app is excluded from optimization
End If