#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=123.ico
#AutoIt3Wrapper_Outfile=PhatAmTiengAnh.exe
#AutoIt3Wrapper_Outfile_x64=PhatAmTiengAnh.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Haku.4rumer.Com", 299, 190, 290, 180)
$Edit1 = GUICtrlCreateEdit("", 16, 32, 217, 105)
GUICtrlSetData(-1, "I'm Admin Haku  -  Web: Haku.4rumer.Com  -  Yh: mactoingaodu2001")
$Label1 = GUICtrlCreateLabel("Nhập từ muốn phát âm:", 16, 8, 115, 17)
$Button1 = GUICtrlCreateButton("Đọc", 40, 152, 75, 25)
$Button2 = GUICtrlCreateButton("Thoát", 144, 152, 75, 25)
$Button3 = GUICtrlCreateButton("Mở", 248, 32, 35, 105)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         _doc(GUICtrlRead($Edit1))
      Case $Button2
         Exit
      Case $Button3
         _Open()
   EndSwitch
WEnd

Func _Doc($text)
   $text = StringReplace($text,@CRLF," ")
   $text = StringReplace($text,@CR," ")
   $text = StringReplace($text,@LF," ")
   $open = FileOpen(@TempDir&"\phatam.vbs",10)
   FileWrite($open,'CreateObject("SAPI.SpVoice").Speak"'&$text&'"')
   FileClose($open)
   ShellExecute(@TempDir&"\phatam.vbs")
   ;- clear varied
   $open = ''
   $text = ''
   $chr13 = ''
   ;----------------
EndFunc

Func _Open()
   $fileopen = FileOpenDialog("Chọn file muốn mở","","Text File (*.txt)")
   If Not @error Then
      $text = FileRead($fileopen)
      _doc($text)
   Else
      MsgBox(16,"Error!","Exit Code: "&@error)
   EndIf
   ;- clear varied
   $fileopen = ''
EndFunc