Sunday, April 8, 2012

Auto Speaker

Language: VBS script
Save as anything.vbs

Input text-to-speak version:

Type the words you want the computer to speak and the computer will speak it
The voice may be different for each Windows version

dim msg, speaker
msg = inputbox("Enter some words:", "Auto Speaker")
set speaker = createobject("sapi.spvoice")
speaker.speak msg


Fixed text-to-speak version:

It will speak that text when it is started

set speaker = createobject("sapi.spvoice")
speaker.speak "Your text here"


No comments:

Post a Comment