Set value

[bowker]

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]

@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.

[bowker]

@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 popup

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, "", $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]

@bowker, I see, but can you post a working code for testing? what are the #includes.

[bowker]

@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]

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]

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]

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]

@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 

 

[bowker]

Noted! Thank you very much sir @pixelsearch!