editar audio

Sleep(2000)
Beep()
$frases = FileRead("frases.txt")
$frases = StringSplit($frases, @CRLF & @CRLF, 1)

For $i = 1 To $frases[0]
    ;en
    Send("^a")
    Send("{DELETE}")
    Sleep(1000)
    Send("!F")
    Send("2")
    Send("S")
    Send("1")
    WinWaitActive("Synthesize Speech")
    $separa = StringSplit($frases[$i], @CRLF)
    Send($separa[1])
    Send("{TAB}")
    Send("{ENTER}")
    Sleep(2000)
    Send("!F")
    Send("2")
    Send("A")
    WinWaitActive("Salvar como")
    Send(StringLower($separa[3]) & "_en")
    Send("{TAB}{DOWN}{DOWN}{ENTER}{ENTER}")
    Sleep(1000)
    Send("{ENTER}")
    Sleep(2000)

    ; pt
    Send("^a")
    Send("{DELETE}")
    Sleep(1000)
    Send("!F")
    Send("2")
    Send("S")
    Send("1")
    WinWaitActive("Synthesize Speech")
    $separa = StringSplit($frases[$i], @CRLF)
    Send($separa[3])
    Send("{TAB}{DOWN}")
    Send("{ENTER}")
    Sleep(2000)
    Send("!F")
    Send("2")
    Send("A")
    WinWaitActive("Salvar como")
    Send(StringLower($separa[3]) & "_pt")
    Send("{TAB}{DOWN}{DOWN}{ENTER}{ENTER}")
    Sleep(1000)
    Send("{ENTER}")
    Sleep(2000)
Next