Postado Qui 29 Jul 2010 - 13:30
Abra seu bloco de notas, e digite o seguinte:
StrText="O que quer que ele diga"
set ObjVoice=CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
Por exemplo:
StrText="Eu sou o LMAB"
set ObjVoice=CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
StrText="O que quer que ele diga"
set ObjVoice=CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText
Por exemplo:
StrText="Eu sou o LMAB"
set ObjVoice=CreateObject("SAPI.SpVoice")
ObjVoice.Speak StrText