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

    • nooneclose
      By nooneclose
      Good morning everyone, I thought I had already solved this issue but it turns out I did not. 
      My code finds unread emails with this specific subject line of "request" but when I change the subject to SKIPPED + "request" = ("SKIPPED request") the program still finds the email and tries to process it. I only want to process emails with the exact match subject of "request".
      Here is my code that "finds" the unread emails with the subject of "request" or so I thought. 
      Func ListUnreadEmails() ;******************************************************************************* ; Lists all unread E-mails from the folder Outlook-UDF-Test ;******************************************************************************* ; Stores all the unRead emails into an array Global $aItems = _OL_ItemFind($oOutlook, "*\Outlook-UDF-Test", $olMail, _ "[UnRead]=True", "Subject", "request", "EntryID,Subject", "", 1) ; Displays the array of unRead emails If IsArray($aItems) Then ;_ArrayDisplay($aItems, "OutlookEX UDF: _OL_ItemFind - Unread mails") Else MsgBox(48, "OutlookEX UDF: _OL_ItemFind Example Script", _ "Could not find an unread mail. @error = " & @error & ", @extended: " & @extended) EndIf ; Gets the number of unread emails Global $numberOfUnRead = UBound($aItems, $UBOUND_ROWS) - 1 ;MsgBox("", "Number of Unread emails", $numberOfUnRead) EndFunc It acts as if any part of the subject containing the word "request" and the email is unread that it will try to process it. (I think)
    • KhalidAnsari
      By KhalidAnsari
      Hi,
      I need to automate Java application using AutoIt, I have refer forum for the same, as per forum I am using Java Access Bridge to finding control name. But could not set value to control. Below is my sample code 
      Send("#r")
      sleep(1500)
      Send("D:\javaapplication\javaapplication\Hello.jar{Enter}")
      WinActivate("Penjumlahan")
      sleep(1500)
      ControlSetText("Penjumlahan", "", "Name:  A :", "demo")
      Java Application and Java Ferret screen

    • QaisBsharat
      By QaisBsharat
      Hello, 
      May i know how can i automation qt application?
      Using controlclick not mouse and positions
       
      Thanks
    • nooneclose
      By nooneclose
      Good afternoon, I am in need of some help. I am sure this is a stupid question requiring only one or two lines of code. However, I would greatly appreciate the help I cannot figure this out. I also tried searching for the answer on the internet but no one except me apparently seems to be having a hard time figuring this out and or is asking about it. 
      I simply want to change the "status" of an email from unread to read once I have processed it. My code is over 500 lines and I would like not to clutter this post with it. Assume I have all my includes and connections properly defined and stuff. 
      Here is the bit of code where I am trying to change the email that was used from unread to read:
      Func ChangeEmailStatus() ;******************************************************************************* ; changes the status of an email from unread to Read ;******************************************************************************* Local $iRows = UBound($aItems, $UBOUND_ROWS) MsgBox("", "Number of Unread emails (Before Change)", $iRows) _OL_ItemModify($oOutlook,$aItems[$i][0], Default, "Read=True") MsgBox("", "Array Display 1", $aItems[1][0]) MsgBox("", "Array Display 2", $aItems[2][0]) Local $iRows = UBound($aItems, $UBOUND_ROWS) MsgBox("", "Number of Unread emails (After Change)", $iRows) EndFunc  
    • SharpDressedMan
      By SharpDressedMan
      Hello,
      Is there any way to check for validity of a pointer to a DllStruct ?
      In the above code, a DllStruct is created from an invalid pointer. How to prevent from doing this ?
      local $tStruct = DllStructCreate("int i") DllStructSetData($tStruct, "i", 123) local $pStruct = DllStructGetPtr($tStruct) $tStruct = 0 ; destroy DllStruct ==> $pStruct becomes invalid ; how to check here for validity of $pStruct and prevent from doing the following ? $tStruct = DllStructCreate("int i", $pStruct) ; create DllStruct from invalid pointer... MsgBox(0, @ScriptName, @error) ; displays '0' : invalid pointer is not detected by DllStructCreate() MsgBox(0, @ScriptName, IsDllStruct($tStruct)) ; displays '1' : tStruct is assumed as a valid DllStruct object, which is not Thanks for help
×