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