Tate C's Epic Blog
Monday, June 2, 2014
Speech Box
If you want a speech box that will say what you type in then type this code into notepad and save as speech.vbs
DO
Dim msg, sapi
msg=InputBox("Enter your text for conversion")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
LOOP
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment