English Speak

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>

$F = GUICreate("Say English", 460, 194, 192, 124)
$I = GUICtrlCreateEdit("", 0, 0, 457, 170)
$A = GUICtrlCreateButton("About", 0, 168, 153, 25)
$S = GUICtrlCreateButton("Speak", 153, 168, 153, 25)
$E = GUICtrlCreateButton("Exit", 305, 168, 153, 25)
GUISetState(@SW_SHOW)

Func S($s)
  $1 = ObjCreate("SAPI.SpVoice")
  $1.Speak($s)
EndFunc

While 1
    $nMsg = GUIGetMsg()
    If _IsPressed("11", DllOpen("user32.dll")) and _IsPressed("0D", DllOpen("user32.dll")) Then
        $nMsg = $S
        Send("{BS}")
    EndIf
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $E
            Exit
        Case $S
            S(GUICtrlRead($I))
         Case $A
            MsgBox(0,"","Hotkey: Ctrl + Enter:  đọc");
    EndSwitch
WEnd