Dim r As Reflector
	r.Target = r.GetActivity
	r.Target = r.RunMethod("getWindow")
	r.RunMethod2("addFlags", 6815872, "java.lang.int")
	Try
		r.SetField("addFlags", 6815872, "java.lang.int")
		
	Catch
		Log(LastException)
	End Try
	Dim pho As PhoneWakeState
	
'	pho.KeepAlive(False)
	
	pho.ReleaseKeepAlive

Private Sub clearFlags
	Dim r As Reflector
	r.Target = r.GetActivity
	r.Target = r.RunMethod("getWindow")
	r.RunMethod2("clearFlags", 6815872, "java.lang.int")
End Sub