Jump to content
Sign in to follow this  
nacerbaaziz

How to create a retractable bar using autoit

Recommended Posts

nacerbaaziz

Hi dear
I want create retractable bar using autoit
I tried creating slider, but there's a problem with screen reader for the blind, so is there another retractable tape?
It is advisable to not accept dragging with the keybord only with  mouse
note:
This bar is needed in the process of raising and lowering the volume
I hope that there is a solution to do that
i waiting your responses.
Thanks in advance to all members and administrators

Share this post


Link to post
Share on other sites
JLogan3o13
1 hour ago, nacerbaaziz said:

This bar is needed in the process of raising and lowering the volume

Something like GUICtrlCreateSlider in the help file?


√-1 2^3 ∑ π, and it was delicious!

How to get your question answered on this forum!

Share this post


Link to post
Share on other sites
FrancescoDiMuro

Hello @nacerbaaziz:)

What do you mean with

1 hour ago, nacerbaaziz said:

but there's a problem with screen reader for the blind, so is there another retractable tape?

@JLogan3o13 is right :) Did you try GUICtrlCreateSlider? :)


Click here to see my signature:

Spoiler

Thoughts:

  • I will always thank you for the time you spent for me.
    I'm here to ask, and from your response, I'd like to learn.
    By my knowledge, I can help someone else, and "that someone" could help in turn another, and so on.

/*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

ALWAYS GOOD TO READ:

 

Share this post


Link to post
Share on other sites
nacerbaaziz

I want it accepts drag using the mouse only and never affects the keyboard because it conflicts with the screen readers for blind shortcuts
I hope this is clear for you.
 my Greetings to you

Share this post


Link to post
Share on other sites
FrancescoDiMuro

So, are you trying to let users use mouse only, because of blind users? Am I missing something? :)

EDIT: confused mouse with keyboard, sorry!

Edited by FrancescoDiMuro

Click here to see my signature:

Spoiler

Thoughts:

  • I will always thank you for the time you spent for me.
    I'm here to ask, and from your response, I'd like to learn.
    By my knowledge, I can help someone else, and "that someone" could help in turn another, and so on.

/*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

ALWAYS GOOD TO READ:

 

Share this post


Link to post
Share on other sites
JLogan3o13

Sounds like the other way around, something that can be dragged by the mouse but not by keyboard. Screen readers for the blind are very touchy, and will cause issues if you're holding down keys. Unless I am mistaken on what the OP is asking.

Edited by JLogan3o13

√-1 2^3 ∑ π, and it was delicious!

How to get your question answered on this forum!

Share this post


Link to post
Share on other sites
FrancescoDiMuro

I think it's just like this @JLogan3o13:)

Just the last week was asked something like this... 


Click here to see my signature:

Spoiler

Thoughts:

  • I will always thank you for the time you spent for me.
    I'm here to ask, and from your response, I'd like to learn.
    By my knowledge, I can help someone else, and "that someone" could help in turn another, and so on.

/*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

ALWAYS GOOD TO READ:

 

Share this post


Link to post
Share on other sites
nacerbaaziz

In fact, I researched a lot and unfortunately I didn't find any solution
the last week I posed the shapes, but not in an independent participation, was Among my responses on another topic
And I was afraid that not paying attention to you
for that I decided to ask about this in a separate post
Hoping to find the result
I'm in urgent need.
please help me if you can.
I apologize to all of you if i has violated the forum rules

Share this post


Link to post
Share on other sites
FrancescoDiMuro

I think you did not violate any rules of the forum ( @JLogan3o13 can confirm ).

I was looking on here, but I've never jumped into AutoHotKey so deep.

Maybe some veterans could help you :)

EDIT: this one could help you. The language is AutoHotKey, and it's already compiled. Just use it :)

Edited by FrancescoDiMuro

Click here to see my signature:

Spoiler

Thoughts:

  • I will always thank you for the time you spent for me.
    I'm here to ask, and from your response, I'd like to learn.
    By my knowledge, I can help someone else, and "that someone" could help in turn another, and so on.

/*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------*/

ALWAYS GOOD TO READ:

 

Share this post


Link to post
Share on other sites
Malkey

If it is volume control you want, here are two methods.
1. The first requires you to download a free utility called "nircmd.exe" from  http://www.nirsoft.net/utils/nircmd.html.   I put the downloaded file, "nircmd.exe" in the same directory as the script.
When this example is running, move the cursor to the top edge of the desktop and to the far right hand corner.  This cursor position toggles the appearance and disappearance of the slider-bar window.  To exit press escape key when slider-bar window is visible and active.

2. The second method is running "SndVol.exe" which should already be in your Windows directory.  When this example is running, move the cursor to around the middle of the left hand edge of the desktop.  
While the cursor is over the pop-out window, the window will remain.  Click the close button on title bar of  the pop-out "Volume Mixer" window to exit script.

Hopefully one or both these methods won't interfere with the "screen readers for blind shortcuts".

"nircmd.exe" method:

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <GuiSlider.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

; Needs nircmd.exe from:
; http://www.nirsoft.net/utils/nircmd.html

Example()

Func Example()
    Local $iSliderValueOld, $iSliderValue, $Show = 0
    $hWin = GUICreate("slider", 320, 70, -1, -1, $WS_POPUP)
    GUISetBkColor(0xFF00FF) ; will change background color

    Local $idSlider1 = GUICtrlCreateSlider(10, 10, 300, 50, -1, $TBS_TOOLTIPS)
    GUICtrlSetLimit(-1, 100, 0) ; change min/max value
    ;GUISetState(@SW_HIDE, $hWin)
    GUICtrlSetData($idSlider1, 50)
    GUICtrlSetTip(-1, GUICtrlRead($idSlider1))
    $iSliderValueOld = GUICtrlRead($idSlider1)
    Local $idMsg
    ; Loop until the user exits.
    Do
        $aMousePos = MouseGetPos()
        If ($aMousePos[0] > (@DesktopWidth - 100)) And ($aMousePos[1] < 5) Then
            If $Show Then
                GUISetState(@SW_HIDE, $hWin)
                $Show = 0
            Else
                GUISetState(@SW_SHOW, $hWin)
                $Show = 1
            EndIf
            While (($aMousePos[0] > (@DesktopWidth - 100)) And ($aMousePos[1] < 5))
                $aMousePos = MouseGetPos()
                Sleep(10)
            WEnd
        EndIf
        $idMsg = GUIGetMsg()
        If $idMsg = $idSlider1 Then
            $iSliderValue = GUICtrlRead($idSlider1)
            SoundSetWaveVolume(GUICtrlRead($idSlider1))
            ; "nircmd.exe" from  http://www.nirsoft.net/utils/nircmd.html
            Run("nircmd.exe changesysvolume " & ($iSliderValue - $iSliderValueOld) * 655.35)
            $iSliderValueOld = GUICtrlRead($idSlider1)
            GUICtrlSetTip($idSlider1, GUICtrlRead($idSlider1))
        EndIf

    Until $idMsg = $GUI_EVENT_CLOSE
EndFunc   ;==>Example

 

"SndVol.exe" method:

#include <WinAPI.au3>
#include <WindowsConstants.au3>

; Ref: https://www.autoitscript.com/forum/topic/119699-program-specific-volume-control-udf/
Opt("WinTitleMatchMode", -2) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase

Run(@SystemDir & "\SndVol.exe")

$hWin = WinWaitActive("Volume Mixer")
$aWinPos = WinGetPos($hWin)
WinMove($hWin, "", 10 - $aWinPos[2], $aWinPos[1])

While 1
    If WinExists($hWin) = 0 Then Exit
    $tPoint = _WinAPI_GetMousePos()
    $hWnd = _WinAPI_WindowFromPoint($tPoint)
    ;ConsoleWrite($hWnd & @CRLF)
    $aWinPos = WinGetPos($hWin)
    If $hWin = $hWnd Then
        WinMove($hWin, "", 0, $aWinPos[1], $aWinPos[2], $aWinPos[3], 2)
        While $hWin = _WinAPI_GetAncestor($hWnd, $GA_ROOT) ; or $hWin = $hWnd
            Sleep(100)
            $tPoint = _WinAPI_GetMousePos()
            $hWnd = _WinAPI_WindowFromPoint($tPoint)
        WEnd
        $aWinPos = WinGetPos($hWin)
        WinMove($hWin, "", 10 - $aWinPos[2], $aWinPos[1])
    EndIf
    Sleep(100)
WEnd

 

Edited by Malkey
Added tooltip to slider in "nircmd.exe" method. And added a speed to WinMove().

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
Sign in to follow this  

  • Similar Content

    • SharpDressedMan
      By SharpDressedMan
      I have an array of subarrays, eg:
      local $a[3] = [ 1, 2, 3 ] local $b[3] = [ 4, 5, 6 ] local $c[2] = [ $a, $b ] I can read read a subarray element of the array, as follows:
      local $c12 = ($c[1])[2] ; result: $c12 = 6 However, when I try to set a subarray element as follows, it fails:
      ($c[1])[2] = 12 ; this fails to set subarray element local $c12 = ($c[1])[2] ; result: $c12 = 6 How to set a subarray element ?
      Thanks
    • 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  
×