Sub GetOutputVolume As Float
Dim no As NativeObject
Return no.Initialize("AVAudioSession").RunMethod("sharedInstance", Null).RunMethod("outputVolume", Null).AsNumber
End Sub
Sub SetScreenBrightness (value As Float)
Dim no As NativeObject
no.Initialize("UIScreen").RunMethod("mainScreen", Null).SetField("brightness", value)
End Sub
Sub GetScreenBrightness As Float
Dim no As NativeObject
Return no.Initialize("UIScreen").RunMethod("mainScreen", Null).GetField("brightness").AsNumber
End Sub