Olhem só que manero! Abram o notepad e copiem e colem o seguinte código abaixo, no seu notepad aberto:
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Agora salve o código, no desktop mesmo. ATENÇÃO: salvem como... (speak.vbs). Depois de salvo, abra o arquivinho e uma janela igual a gravura acima vai se abrir e digite nela o que você quiser e aperte no "ok" e escute o seu computador falar com voce! Ah, mais uma coisinha: se sua windows for em português, digite o texto em português, se for em inglês, digite em inglês e assim sucessivamente. Have fun...
adelcogoularte@gmail.com
No comments:
Post a Comment