Som da mensagem

[BeneditoCarneiro]

Som da mensagem é uma brincadeira com textos digitados lidos em voz alta.

Code: Select all

/*
Som da mensagem
Copyright 2023 Benedito Carneiro
Save the script as UTF-8 with BOM
*/
#SingleInstance Force
SendMode Input
SetWorkingDir %A_ScriptDir%

bc := Chr(0169)" 2023 Benedito Carneiro"
Gui, Default
Gui, Font, s13 cWhite, Segoe UI
Gui, Color, 003366
Gui, Add, Text,, Sonorize a mensagem
Gui, Add, Radio, gSemSom, Mensagem sem som
Gui, Add, Radio, gComSom, Mensagem com som
Gui, Add, Text,,
Gui, Add, Button, h30 w80 gSair, Sair
Gui, Add, Text,, %bc%
Gui, Show
Return

SemSom:
#IfWinActive, ahk_class Notepad
    WinClose, ahk_class Notepad
run, Notepad mensagem.txt
Return

ComSom:
FileRead, texto, mensagem.txt
if ErrorLevel
    Return
Random, qual, 1, 5
Switch qual{
    Case 1:
        texto := StrReplace(texto, "a", "á")
        texto := StrReplace(texto, "e", "é")
        texto := StrReplace(texto, "i", "í")
        texto := StrReplace(texto, "o", "ó")
        texto := StrReplace(texto, "u", "ú")
        texto := StrReplace(texto, "y", "ý")
        texto := StrReplace(texto, "c", "ç")
        texto := StrReplace(texto, "A", "Á")
        texto := StrReplace(texto, "E", "É")
        texto := StrReplace(texto, "I", "Í")
        texto := StrReplace(texto, "O", "Ó")
        texto := StrReplace(texto, "U", "Ú")
        texto := StrReplace(texto, "Y", "Ý")
        texto := StrReplace(texto, "C", "Ç")
        texto := StrReplace(texto, "n", "ñ")
        texto := StrReplace(texto, "N", "Ñ")
    Case 2:
        texto := StrReplace(texto, "a", "à")
        texto := StrReplace(texto, "e", "è")
        texto := StrReplace(texto, "i", "ì")
        texto := StrReplace(texto, "o", "ò")
        texto := StrReplace(texto, "u", "ù")
        texto := StrReplace(texto, "c", "ç")
        texto := StrReplace(texto, "A", "À")
        texto := StrReplace(texto, "E", "È")
        texto := StrReplace(texto, "I", "Ì")
        texto := StrReplace(texto, "O", "Ò")
        texto := StrReplace(texto, "U", "Ù")
        texto := StrReplace(texto, "C", "Ç")
        texto := StrReplace(texto, "n", "ñ")
        texto := StrReplace(texto, "N", "Ñ")
    Case 3:
        texto := StrReplace(texto, "a", "ä")
        texto := StrReplace(texto, "e", "ë")
        texto := StrReplace(texto, "i", "ï")
        texto := StrReplace(texto, "o", "ö")
        texto := StrReplace(texto, "u", "ü")
        texto := StrReplace(texto, "y", "ÿ")
        texto := StrReplace(texto, "c", "ç")
        texto := StrReplace(texto, "A", "Ä")
        texto := StrReplace(texto, "E", "Ë")
        texto := StrReplace(texto, "I", "Ï")
        texto := StrReplace(texto, "O", "Ö")
        texto := StrReplace(texto, "U", "Ü")
        texto := StrReplace(texto, "C", "Ç")
        texto := StrReplace(texto, "n", "ñ")
        texto := StrReplace(texto, "N", "Ñ")
    Case 4:
        texto := StrReplace(texto, "a", "ã")
        texto := StrReplace(texto, "e", "ë")
        texto := StrReplace(texto, "i", "ï")
        texto := StrReplace(texto, "o", "õ")
        texto := StrReplace(texto, "u", "ü")
        texto := StrReplace(texto, "n", "ñ")
        texto := StrReplace(texto, "c", "ç")
        texto := StrReplace(texto, "A", "Ã")
        texto := StrReplace(texto, "E", "Ë")
        texto := StrReplace(texto, "I", "Ï")
        texto := StrReplace(texto, "O", "Õ")
        texto := StrReplace(texto, "U", "Ü")
        texto := StrReplace(texto, "N", "Ñ")
        texto := StrReplace(texto, "C", "Ç")
    Case 5:
        texto := StrReplace(texto, "a", "â")
        texto := StrReplace(texto, "e", "ê")
        texto := StrReplace(texto, "i", "î")
        texto := StrReplace(texto, "o", "ô")
        texto := StrReplace(texto, "u", "û")
        texto := StrReplace(texto, "c", "ç")
        texto := StrReplace(texto, "A", "Â")
        texto := StrReplace(texto, "E", "Ê")
        texto := StrReplace(texto, "I", "Î")
        texto := StrReplace(texto, "O", "Ô")
        texto := StrReplace(texto, "U", "Û")
        texto := StrReplace(texto, "n", "ñ")
        texto := StrReplace(texto, "N", "Ñ")
        texto := StrReplace(texto, "C", "Ç")
}
FileAppend, `n`n%texto%, mensagem.txt, UTF-8
#IfWinActive, ahk_class Notepad
    WinClose, ahk_class Notepad
run, Notepad mensagem.txt
Return

GuiEscape:
GuiClose:
Sair:
Gui,destroy
ExitApp