grzeniu 73, Dziękuję za naprowadzenie.
I zabawka gotowa bez użycia lutownicy:)
'----------------------------------------- Sub Process_Globals Dim Tablet As Phone End Sub
Sub Globals Private Button1 As Button Private Button2 As Button End Sub
'.................................
Private Sub Button1_Click Dim ref As Reflector ref.Target = ref.GetActivity ref.Target = ref.RunMethod("getWindow") ref.Target = ref.RunMethod("getAttributes") Dim current As Float = ref.GetField("screenBrightness")
current = current - 0.1
Log(current) Log(Round2(current,1))
Tablet.SetScreenBrightness(Min(1, Max(0.01, current))) End Sub
'.................................
Private Sub Button2_Click Dim ref As Reflector ref.Target = ref.GetActivity ref.Target = ref.RunMethod("getWindow") ref.Target = ref.RunMethod("getAttributes") Dim current As Float = ref.GetField("screenBrightness")
current = current + 0.1
Log(current) Log(Round2(current,1))
Tablet.SetScreenBrightness(Min(1, Max(0.01, current))) End Sub '.................................
pozdrawiam Wszystkich
|