Private Sub SetBrightnessToNormalMode
Dim jo As JavaObject
Dim System As JavaObject
jo.InitializeContext
System.InitializeStatic("android.provider.Settings.System")
===> This line crashes System.RunMethod("putInt", Array(jo.RunMethod("getContentResolver", Null), System.GetField("SCREEN_BRIGHTNESS_MODE"), System.GetField("SCREEN_BRIGHTNESS_MODE_MANUAL")))
End Sub
Private Sub CanWriteToSystemSettings As Boolean
Dim p As Phone
If p.SdkVersion >= 23 Then
Dim ctxt As JavaObject
Dim settings As JavaObject
ctxt.InitializeContext
settings.InitializeStatic("android.provider.Settings.System")
Return settings.RunMethod("canWrite", Array(ctxt))
End If
Log("Main::CanWriteToSystemSettings - True")
Return True
End Sub