9
2009
Faça seu PC falar tudo o que você digitar
1) Copie o código abaixo e cole no Bloco de Notas:
(Se preferir, baixe o script pronto aqui)
Dim message, sapi
message=InputBox("O que deseja que eu fale?","Fale Comigo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
2) Salve o arquivo como falecomigo.vbs (certifique-se de que a extensão seja.vbs)
3) Agora, dê um clique-duplo no arquivo falecomigo.vbs e você verá a janela abaixo. Digite sua mensagem, pressione enter, e escute seu PC falando!
Se isso não funcionar…
Provavelmente, ocorreram um dos 2 problemas abaixo:
1. Seu navegador exibiu as aspas de forma diferente. Volte ao bloco de notas e substitua todas as aspas por aspas duplas. Salve o arquivo e tente outra vez
2.Você não tem a SAPI instalada no seu computador, portanto, isso não irá funcionar (dependendo da sua versão do windows esse pode ser o caso.)
Related Posts
10 Comments + Add Comment
Leave a comment
Top Comentaristas
- Fazer Twitter
- Matheus Ferreira
Comentários Recentes
- thibireis on Abrir arquivos e pastas com um só clique no Windows XP
- thibireis on Video – The progress bar…
- Fazer Twitter on Video – The progress bar…
- Matheus Ferreira on Abrir arquivos e pastas com um só clique no Windows XP
- angela on Personalize seu avatar do Google+

Escrito por thibireis








mesmo assim valeu ai pela dica!
Agradeço pela visita e pelo comentário.
Abraço!
Fico feliz que tenha gostado dessa dica! E ainda estou procurando pela net afora alguma alternativa em Português para o Microsoft Sam. Assim que a encontrar, criarei um novo post.
Abraço!
E nesse exemplo que você fez teria como setar outra voz o produto da NextUp-ScanSoft foi feito com sapi da microsofter por isso que eu estou perguntando
E Wilson: Não conhecia o IBM Voices… já tinha ouvido falar do Loquendo, mas nunca o testei. Vou fazer o teste e com estes prorgramas e postarei os resultados. Obrigado pelos comentários!
Espero ter ajudado.