#include <GUIConstants.au3>  #include <WindowsConstants.au3>  #include <EditConstants.au3>  #include <Timers.au3>     Global $str , $count, $temp , $Timer_Types     $str = " Hi there , this is a sample of auto-typed text"  $count = 0     Opt("GUICloseOnESC",0)        ;============== MAKE GUI ===========================================     $gui = GUICreate("A type text (basic)", 500, 336, 193, 125)  $eMainEdit = GUICtrlCreateEdit("", 8, 11, 481, 273, BitAND($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))     $txt_speed = GUICtrlCreateLabel("Speed (miliSecond) : ", 20, 300, 104, 17)  $eSpeed = GUICtrlCreateInput("50", 135, 300, 41, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))     $btnStartStop = GUICtrlCreateButton("Start", 200, 295, 108, 30, 0)  $btnOpen = GUICtrlCreateButton("Open text", 365, 295, 112, 30, 0)     GUISetState(@SW_SHOW)     ;==============================================================================================     While 1                  $nMsg = GUIGetMsg()                  Switch $nMsg                                  Case $GUI_EVENT_CLOSE                                                  Exit                                                                                   Case $btnStartStop                                                  If GUICtrlRead($btnStartStop)="Start" Then                                                                  GUICtrlSetData($btnStartStop, "Stop")                                                                  GUICtrlSetState($eSpeed, $GUI_DISABLE)                                                                  $nDelay = Abs(Int(GUICtrlRead($eSpeed)))                                                                  $Timer_Type = _Timer_SetTimer($gui , $nDelay, "_Type_Text")                                                  Else                                                                  _Timer_KillAllTimers($gui)                                                                  GUICtrlSetData($btnStartStop, "Start")                                                                  GUICtrlSetState($eSpeed, $GUI_ENABLE)                                                                  $count = 0                                                  EndIf                                  Case $btnOpen                                                  _Timer_KillAllTimers($gui)                                                  If BrowseFile() Then $count = 0                                                  GUICtrlSetState($eSpeed, $GUI_DISABLE)                                                  $nDelay = Abs(Int(GUICtrlRead($eSpeed)))                                                  $Timer_Type = _Timer_SetTimer($gui, $nDelay, "_Type_Text")                                                  GUICtrlSetData($btnStartStop, "Stop")                                  EndSwitch  WEnd     ;====================================================================     Func BrowseFile()                  Local $path, $file, $IsError=0                  $path = FileOpenDialog("Open text file", @MyDocumentsDir, "Text (*.txt)|All file (*.*)" , 1+2)                  If @error=1 Then                                  MsgBox(16, "Error", "Sorry. I can't open file. Previous texts will be continued.")                                  $IsError = 1                  Else                                  $file = FileOpen($path, 0)                                  If $file=-1 Then                                                  MsgBox(16, "Error", "Sorry. I can't read this file")                                                  $IsError = 1                                  EndIf                                  $str = FileRead($file)                                  FileClose($file)                  EndIf                                   If $IsError=0 Then                                  Return 1                ; open file successfully                  Else                                  Return 0                ; fail                  EndIf  EndFunc     ; important function , this will type text automaticly  Func _Type_Text($hwnd, $msg, $wParam, $lParam)                  $count += 1                  If $count>StringLen($str) Then                                  $count = 0                                  _Timer_KillAllTimers($gui)                                  GUICtrlSetData($btnStartStop, "Start")                                  GUICtrlSetState($eSpeed, $GUI_ENABLE)                                  Return                  EndIf                  $temp = StringLeft($str, $count)                  $temp &= "|"                  GUICtrlSetData($eMainEdit, $temp)  EndFunc 

#include <GUIConstantsEx.au3>  #include <WindowsConstants.au3>  #include <EditConstants.au3>  #include <Timers.au3>     Global $string , $def_str, $temp_str , $i , $len , $run , $nDelay , $misc , $timer2type  ; run = 1 : playing                run=2 : paused                   run=0 : stoped  ; i : dem so ky tu can lay     $str1 = "when i saw you at the party , when you asked me girlfriend , i didn't know why i can't say clearly . You 're as pretty as angel , your eyes seemed to burn my heart. My strange lover..." & @CRLF  $str2 = "When i smelt a perfume from your hair , when i kissed your body , the waves of love were flowing in my and your soul . You said , don't leave me baby ..." & @CRLF  $str3 = "When i heard words you told , when i believed your heart , and now i knew i was a fool . I didn't cry but my soul was dying , my heart broke when you said ''Good bye''" & @CRLF  $str4 = "When i looked the waves of ocean , when i missed my memories , i felt all thing were only a deam . A full house which would never exist in this world. The sun was setting..." & @CRLF  $str5 = "When i told my children stories , when i took my wife's hands , i knew the happy life was right here . '' Every thing is never perfect , i have to accept . '' " & @CRLF  $str6 = "When i see the winter of my life , when i write these lines , all left ever and ever, all will never return . Outside the window , sights are a white by snow , the wind 's still blowing , it's still cold, very cold. "  $str7 = "Maybe this's final winter i can look , think and count leaves ..."  $def_str = $str1 & $str2 & $str3 & $str4 & $str5 & $str6 & $str7  ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~     $string = $def_str  $len = StringLen($string)  $i = 0  $run = 0  $nDelay = 50     ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~  $gui = GUICreate("A Text Typer", 700, 500)     $eMainText = GUICtrlCreateEdit("", 5, 5, 690, 420, $ES_AUTOVSCROLL + $WS_VSCROLL+ $ES_READONLY)  GUICtrlSetFont(-1, 10, 400, default, "Tahoma")     $text_ShowSource = GUICtrlCreateLabel("Source : <default text>", 8, 435, 690, 20)     $text_delay = GUICtrlCreateLabel("Delay (miliSecond) :" , 10, 470, 100, 30)  $eDelay = GUICtrlCreateInput($nDelay, 115, 467, 40, 20, $ES_NUMBER)     $btnPlayPause = GUICtrlCreateButton("Start", 170, 462, 80, 30)  $btnStop = GUICtrlCreateButton("Stop", 250, 462, 80, 30)  $btnOpenText = GUICtrlCreateButton("Open text", 350, 462, 80, 30)  $btnLoadDefault = GUICtrlCreateButton("Load default text", 430, 462, 110, 30)     $text_status = GUICtrlCreateLabel("Status :  Stoped...", 580, 470, 150, 30)     GUISetState()  ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~        while 1                  $msg = GUIGetMsg()                                   Switch $msg                  case $GUI_EVENT_CLOSE                                  ExitLoop                                   Case $btnPlayPause                                  If $run=0 Or $run=2 Then; if  state is "stoped" or "paused", then                                                  $run = 1                                                 ; set state to "start"                                                  update_status(1)               ; set new text for buttons and status                                                  $nDelay = Abs(Int(GUICtrlRead($eDelay)))                                            ; read delay value for speed type                                                  $timer2type = _Timer_SetTimer($gui, $nDelay, "TypeText")                            ; create a new timer (note : this will use current valure of $i and $run)                                                  GUICtrlSetState($eDelay, $GUI_DISABLE)                            ; disable input of delay                                  ElseIf $run=1 Then                                                            ; if state is "typing" , then                                                  $run = 2                                                                                 ; change state to "stoped"                                                  update_status(2)                                               ; set new texts for buttons                                                  GUICtrlSetState($eDelay, $GUI_ENABLE)                             ; enable delay s input                                                  _Timer_KillTimer($gui, $timer2type)                                          ; kill timer to stop typing text (note : current value will be used on next time when i create new timer)                                  EndIf                                                   Case $btnStop                                  _Timer_KillTimer($gui, $timer2type)                                  $run = 0                                  $i = 0                                  update_status(0)                                  GUICtrlSetState($eDelay, $GUI_ENABLE)                                                                                   Case $btnOpenText                                  _Timer_KillTimer($gui, $timer2type)          ; kill timer to stop typing text                                  If BrowseText() Then $i = 0                                                                            ; check if a new file is opened successfully , if yes , then reset position which is reading in text                                  $nDelay = Abs(Int(GUICtrlRead($eDelay)))                            ; update delay value                                  $timer2type = _Timer_SetTimer($gui, $nDelay, "TypeText")            ; create a new timer for typing text                                  $run = 1                                                                                 ; set state this time is RUNNING                                  update_status(1)                                               ; update text on button and status                                                   Case $btnLoadDefault                                                  _Timer_KillTimer($gui, $timer2type)                                                  $i = 0                                                  $run = 0                                                  update_status(0)                                                  $string = $Def_str                                                  GUICtrlSetData($text_ShowSource, "Source :  <Default text>")                                                                                                   $nDelay = Abs(Int(GUICtrlRead($eDelay)))                                                                             $timer2type = _Timer_SetTimer($gui, $nDelay, "TypeText")                                                  $run = 1                                                  update_status(1)                                  EndSwitch  WEnd     ;==============================================================     ; this func will set new texts for buttons and status  Func update_status($nState)                  If $nState=0 Then                                              ;  neu trang thai la stop                                  GUICtrlSetData($btnPlayPause, "Start")                                  GUICtrlSetData($text_status, "Status : Stoped...")                  ElseIf $nState=1 Then     ; neu trang thai la play                                  GUICtrlSetData($btnPlayPause, "Pause")                                  GUICtrlSetData($text_status, "Status : Typing...")                  Else                                                                                                                       ; neu trang thai la pause                                  GUICtrlSetData($btnPlayPause, "Start")                                  GUICtrlSetData($text_status, "Status : Paused...")                  EndIf  EndFunc     ; this func will show open dialog for user who choose a text file and if success then continue to type with new texts  Func BrowseText()                  Local $filePath, $file                                   $filePath = FileOpenDialog("Open a text file", @MyDocumentsDir, "Text (*.txt) | All file (*.*)", 1+2)                  If @error <> 1 Then                                  $file = FileOpen($filePath, 0)                                  If $file =-1 Then                                                  MsgBox(16, "Error", " I'm sorry. A error occured when I read file. ")                                                  Return 0                                  Else                                                  $string = FileRead($file)                                                  FileClose($file)                                                  GUICtrlSetData($text_showSource , "Source : " & $filepath)                                  EndIf                  Else                                  return 0                  EndIf                  Return 1  EndFunc     ; it's important , this will type text and show it on GUI  Func TypeText($hWnd, $Msg, $iIDTimer, $dwTime)                  $i += 1                  If ($i>StringLen($string)) Then                                  $i=0                                  $run = 0                                  update_status(0)                                  GUICtrlSetData($text_status, "Status :  Completed")                                  _Timer_KillTimer($gui, $timer2type)                                                           Return                  EndIf                                   $temp_str = StringLeft($string, $i)                  $condition = StringRight($temp_str, 1) <> @CR And StringRight($temp_str, 1)<>@LF                  If $condition Then                                  $temp_str &= "_"                                  GUICtrlSetData($eMainText, $temp_str)                  Else                                  Sleep(400)                  EndIf  EndFunc