bowker Posted June 19, 2018 Posted June 19, 2018 Hi! Is there a way for me to set the value for my slider? I am getting the value for my slider with Local $strText = _UIA_getPropertyValue($oUIElement, $UIA_LegacyIAccessibleValuePropertyId) MsgBox(0,"",$strText)
KickStarter15 Posted June 19, 2018 Posted June 19, 2018 @bowker, Is this related to this Topic? If yes, Then please follow the thread when posting same topic and don't create another topic with the same scenario. Anyways, as checked with @JLogan3o13's code you can get the value on slider and from that simple code you can assign/set the value on it. Can you post the real code that whatever you want to achieved from this thread so that we can see what issue you really have. Programming is "To make it so simple that there are obviously no deficiencies" or "To make it so complicated that there are no obvious deficiencies" by C.A.R. Hoare.
bowker Posted June 19, 2018 Author Posted June 19, 2018 @KickStarter15 oh yah sorry about that. I should've edited my post back then. anyways, I solved my problem in getting the value of my current slider for the last post I made. Now, I want to ask the user to change the value of my slider using an inputBox. By reading the value of the inputBox, I can now then set and change the new value of my slider through some left or right clicks of arrows keys which is my current problem right now. Is it possible that way? or is there other way for me to control the slider? Sorry for bad English. Here's a snippet of my code: expandcollapse popupLocal $oP2=_UIA_getObjectByFindAll($UIA_oDesktop, "Title:=Settings;controltype:=UIA_WindowControlTypeId;class:=ApplicationFrameWindow", $treescope_children) _UIA_Action($oP2,"setfocus") Local $oP1=_UIA_getObjectByFindAll($oP2, "Title:=Settings;controltype:=UIA_WindowControlTypeId;class:=Windows.UI.Core.CoreWindow", $treescope_children) _UIA_Action($oP1,"setfocus") Local $oP0=_UIA_getObjectByFindAll($oP1, "Title:=;controltype:=UIA_PaneControlTypeId;class:=ScrollViewer", $treescope_children) ;~ First find the object in the parent before you can do something ;~$oUIElement=_UIA_getObjectByFindAll("Changebrightness.mainwindow", "title:=Change brightness;ControlType:=UIA_SliderControlTypeId", $treescope_subtree) Local $oUIElement=_UIA_getObjectByFindAll($oP0, "title:=Change brightness;ControlType:=UIA_SliderControlTypeId", $treescope_subtree) _UIA_action($oUIElement,"setfocus") Sleep(1500) ;~ Get current value of the slider Local $strText = _UIA_getPropertyValue($oUIElement, $UIA_LegacyIAccessibleValuePropertyId) Sleep(1000) MsgBox($MB_SYSTEMMODAL, "", "Brightness is at: " & $strText, $iTimeout) Sleep(1000) ;~ User Input ;~ Change the value of slider While 1 $input = InputBox("Brightness", "Set Brightness to:", "", " M", -1, -1) MsgBox(0, "", $input) If @error Then ExitLoop ElseIf @error = 1 Then Exit EndIf If $input < 0 or $input > 100 Then MsgBox(48, "Error!", "Minimum value for brightness is 0 and the Maximum brightness is 100") $Default = $input ContinueLoop ElseIf $input > 0 Or $input < 100 Then ExitLoop ElseIf @error = 1 Then Exit EndIf WEnd
KickStarter15 Posted June 19, 2018 Posted June 19, 2018 @bowker, I see, but can you post a working code for testing? what are the #includes. Programming is "To make it so simple that there are obviously no deficiencies" or "To make it so complicated that there are no obvious deficiencies" by C.A.R. Hoare.
bowker Posted June 19, 2018 Author Posted June 19, 2018 (edited) @KickStarter15 sure. Here's the whole code: expandcollapse popup#RequireAdmin #include <MsgBoxConstants.au3> #include "UISpy\UIAWrappers\UIAWrappers.au3" Slider() Func Slider() $input = "" $Default = "" ;~ ;Start automation Local $iTimeout = 1 Local $hWnd = WinWait("[Class:Shell_TrayWnd]", "", "[CLASS:Button; INSTANCE:1]") ControlClick($hWnd, "", "[CLASS:Button; INSTANCE:1]") ;open the start menu Sleep(1000) Send("Display Settings", 10) ;Type the Display Settings in the start menu Sleep(1000) Send("{ENTER}") AutoItSetOption("MustDeclareVars", 1) Local $oP2=_UIA_getObjectByFindAll($UIA_oDesktop, "Title:=Settings;controltype:=UIA_WindowControlTypeId;class:=ApplicationFrameWindow", $treescope_children) _UIA_Action($oP2,"setfocus") Local $oP1=_UIA_getObjectByFindAll($oP2, "Title:=Settings;controltype:=UIA_WindowControlTypeId;class:=Windows.UI.Core.CoreWindow", $treescope_children) _UIA_Action($oP1,"setfocus") Local $oP0=_UIA_getObjectByFindAll($oP1, "Title:=;controltype:=UIA_PaneControlTypeId;class:=ScrollViewer", $treescope_children) ;~ First find the object in the parent before you can do something ;~$oUIElement=_UIA_getObjectByFindAll("Changebrightness.mainwindow", "title:=Change brightness;ControlType:=UIA_SliderControlTypeId", $treescope_subtree) Local $oUIElement=_UIA_getObjectByFindAll($oP0, "title:=Change brightness;ControlType:=UIA_SliderControlTypeId", $treescope_subtree) _UIA_action($oUIElement,"setfocus") Sleep(1500) ;~ Get current value of the slider Local $strText = _UIA_getPropertyValue($oUIElement, $UIA_LegacyIAccessibleValuePropertyId) Sleep(1000) MsgBox($MB_SYSTEMMODAL, "", "Brightness is at: " & $strText, $iTimeout) Sleep(1000) ;~ User Input ;~ Change the value of slider While 1 $input = InputBox("Brightness", "Set Brightness to:", "", " M", -1, -1) MsgBox(0, "", $strText) If @error Then ExitLoop ElseIf @error = 1 Then Exit EndIf If $input < 0 or $input > 100 Then MsgBox(48, "Error!", "Minimum value for brightness is 0 and the Maximum brightness is 100") $Default = $input ContinueLoop ElseIf $input > 0 Or $input < 100 Then ExitLoop ElseIf @error = 1 Then Exit EndIf WEnd ;~ Send("{RIGHT 10}") ;UI for verification ;~ MsgBox(0, "Change Brightness", "Brightness Changed.", $iTimeout) ;~ Sleep(1000) ;~ WinClose("Settings") ;Close the active window EndFunc ;==>Slider Edited June 19, 2018 by bowker
Subz Posted June 19, 2018 Posted June 19, 2018 You should specify version of Windows in your script, you should also check if its a laptop or not, since these settings aren't available on desktops. It would also be easier just to use registry to change the setting see https://winaero.com/blog/change-screen-brightness-registry-tweak/
bowker Posted June 19, 2018 Author Posted June 19, 2018 14 minutes ago, Subz said: You should specify version of Windows in your script, you should also check if its a laptop or not, since these settings aren't available on desktops. @SubzI am running it to my laptop with 64-bit windows 10 os.
bowker Posted June 19, 2018 Author Posted June 19, 2018 So I will settle for send left and right arrow keys for now. I know its not the right syntax for the problem I have right now but I just cant think of another way to do this around. I need more time to study registry so maybe i'll implement it some other time. Here's what I am doing right now. ;~ User Input ;~ Change the value of slider While 1 $input = InputBox("Brightness", "Set Brightness to:", "", " M", -1, -1) sleep(900) _UIA_action($oUIElement,"click") if $input > 50 Then ;~ ControlSend("", "", $oUIElement, "", "{Right $input}") Send("{RIGHT" & $input & "}") MsgBox(0, "Change Brightness", "Brightness changed to: " & $input) ElseIf $input < 50 Then ;~ ControlSend("", "", $oUIElement, "", "{Left $input}") Send("{LEFT" & $input & "}") MsgBox(0, "Change Brightness", "Brightness changed to: " & $input) EndIf If @error Then ExitLoop ElseIf @error = 1 Then Exit EndIf If $input < 0 or $input > 100 Then MsgBox(48, "Error!", "Minimum value for brightness is 0 and the Maximum brightness is 100") $Default = $input ContinueLoop ElseIf $input > 0 Or $input < 100 Then ExitLoop ElseIf @error = 1 Then Exit EndIf WEnd The problem is I cant get the send function work. I cant get my input box value. Should I use other method instead?
pixelsearch Posted June 19, 2018 Posted June 19, 2018 @bowker : be careful when you test @error, this is your code : $input = InputBox("Brightness", "Set Brightness to:", "", " M", -1, -1) MsgBox(0, "", $input) If @error Then ... You wanted to test the @error returned by InputBox, right ? Then you should test @error immediately after InputBox Because now that you called another function (MsgBox), @error has been reset to 0 as soon as you called MsgBox (as stipulated in the help file : "When entering a function @error is set to 0") If you don't want to test @error immediately after InputBox, then keep its value in a variable, for later use, for example : $input = InputBox("Brightness", "Set Brightness to:", "", " M", -1, -1) $iKeep_error = @error MsgBox(0, "", $input) If $iKeep_error <> 0 Then ... Hope it helps... and good luck for your script "I think you are searching a bug where there is no bug... don't listen to bad advice."
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now