An initiative to make focus control sound effects for the blind

[nacerbaaziz]

Hello
I designed this code To help the blind
Where screen readers users can  Identify the sefocus  item with audio files
In this code i define some elements
Unfortunately, I did not know how to define the other elements
I am waiting for your initiative to  define the other elements
Thank you in advance

expandcollapse popup

Global $CFocus = ""

Func focus($window)
    Local $focusing = ControlGetFocus($window)
    Local $handle = ControlGetHandle($window, "", $focusing)
    If Not ($focusing = $CFocus) Then
        Switch StringTrimRight($focusing, 1)
            Case "button"
                If IsCheckBox($handle) Then
                    play("checkBox")
                ElseIf IsRadio($handle) Then
                    play("RadioButton")
                Else
                    play("focus")
                EndIf
                $CFocus = $focusing
            Case "comboBox", "ListBox"
                play("list")
                $CFocus = $focusing
            Case "edit", "input"
                play("edit")
                $CFocus = $focusing
            Case Else
                play("focus")
                $CFocus = $focusing


        EndSwitch
    EndIf
EndFunc   ;==>focus

Func IsCheckBox($ctrl_hwnd)
    $Style = _WinAPI_GetWindowLong($ctrl_hwnd, $GWL_STYLE)
    Return BitAND($Style, $BS_CHECKBOX) = $BS_CHECKBOX
EndFunc   ;==>IsCheckBox

Func IsRadio($ctrl_hwnd)
    $Style = _WinAPI_GetWindowLong($ctrl_hwnd, $GWL_STYLE)
    Return BitAND($Style, $BS_AUTORADIOBUTTON) = $BS_AUTORADIOBUTTON
EndFunc   ;==>IsRadio

Func play($name, $wait = 0)
    Local Const $SND_RESOURCE = 0x00040004
    Local Const $SND_ASYNC = 1
    ; Play the file - the script will pause as it sounds
    If $wait = 0 Then
        DllCall("winmm.dll", "int", "PlaySound", "str", $name, "hwnd", 0, "int", BitOR($SND_RESOURCE, $SND_ASYNC))
    Else
        DllCall("winmm.dll", "int", "PlaySound", "str", $name, "hwnd", 0, "int", $SND_RESOURCE)
    EndIf
    Return 1
EndFunc   ;==>play

 

Edited March 6, 2018 by nacerbaaziz
Added topic text and code tags

[nacerbaaziz]

Is there any help please

[JLogan3o13]

You posted this in the Examples forum. You have been around long enough to know that if you're looking for help the thread should go in General Help and Support, and if you're looking to work collaboratively on a project it should go under AutoIt Projects and Collaboration. So which is it?