StrText=("Please allow me to introduce myself") StrText2=("I'm a man, of wealth, and taste") set ObjVoice = CreateObject("SAPI.SpVoice") ObjVoice.Volume = 100 ObjVoice.Speak StrText ObjVoice.Speak StrText2
Lo script utilizza il metodo SAPI.SpVoice per la sintesi vocale delle stringhe di testo passate. Di seguito è possibile scaricare il file VBS:
DOWNLOAD
FIG 1 - Sintesi Vocale |
Nessun commento:
Posta un commento
I messaggi sono soggetti a moderazione da parte dell'amministratore prima della loro pubblicazione.