Save as anything.vbs
Input text-to-speak version:
Type the words you want the computer to speak and the computer will speak itThe 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 startedset speaker = createobject("sapi.spvoice")
speaker.speak "Your text here"
No comments:
Post a Comment