Jump to content

Recommended Posts

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)

 

Share this post


Link to post
Share on other sites
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.


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.

Share this post


Link to post
Share on other sites
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:

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

 

Share this post


Link to post
Share on other sites
KickStarter15

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

Share this post


Link to post
Share on other sites
bowker
Posted (edited)

@KickStarter15 sure. Here's the whole code:
 

#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 by bowker

Share this post


Link to post
Share on other sites
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/

Share this post


Link to post
Share on other sites
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. 

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
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 :)

 

Share this post


Link to post
Share on other sites
bowker

Noted! Thank you very much sir @pixelsearch!

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • BogdanNicolescu
      By BogdanNicolescu
      While 1 / / / A whole bunch of codes found in help and here: https://www.autoitscript.com/autoit3/docs/ / / / WEnd OR:

       
      HotKeySet("{ESC}", "Terminate") While 1 MouseClick("Right",674,422) MouseClick("Left",673,447) Sleep(2000) / / / A whole bunch of codes found in help and here: https://www.autoitscript.com/autoit3/docs/ / / / MouseClick("Left",675,339) SLeep(3000) WEnd Func Terminate()     Exit 0 EndFunc  
      Sorry if i should't let this here to be found by newbies like me -.-'
    • santoshM
      By santoshM
      Dear friends i am facing a problem , i have created a window in autoit some time it is moving with the mouse curser even if iam not clicking the window 
    • sumanth1980
      By sumanth1980
      Here i am wrote a simple lines to install basic applications but when i clicked on one application/program to install it was working fine but when i cancel the program in the middle to install another program it was not working. I am not an expert in this but i want a solution for this ... Can any one help me on this....
      ORG-1.au3
    • PleaseHelpMEIWillLoveyou
      By PleaseHelpMEIWillLoveyou
      Is there a way to use a custom terminal or something from my pc and run a script on another pc.
      please let me know if its possible
      (not for anything bad just for a project im working on)
    • juniq
      By juniq
      Hey I'm writing on a script which places a link in the context menu so you can choose several mp3 files and rename them using id3 tag udf and year / time stuff variables.
      My problem: I'm renaming the files through "FileMove", But HOW can I get the current directory of the chosen files only? I can't use stringsplit cz there are more than 1 delimiter "\". and I can't trim the string because the stringlength changes every time. How can I get ONLY the directory where the files from $cmdline chosen are? 
×