Speak! for Your Computer
Intro: Speak! for Your Computer
For the 10 favorites I got on my first Technology instructable, I'm going to give you guys this quick and easy 1 step Technology instructable. MAKE YOUR COMPUTER TALK! You can make your computer say whatever you want it to say via Notepad on Windows.
STEP 1: Step 1: Notepad and Saving
What your going to want to do is copy and paste this line of coding into Notepad: (It's between the #'s)
####################################################
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
####################################################
Save this in Notepad as "Speak.txt" without the quotes, then save it again as "Speak.vbs" without the quotes. The Speak.txt file is the Notepad save, and is not required for the Speak.vbs file to work. That's it!
==============================================================
If this gets 15 favorites, prepare for website fiddling!
6 Comments
seamster 9 years ago
Nice!
amerthegamer 33 2 years ago
AndeyV 6 years ago
here is a newer and more advanced code for this but does the same as this code in the instructable
msg=inputbox ("Enter text")
strText = " " + msg
Set ObjVoice = CreateObject("SAPI.SpVoice")
Objvoice.Speak strText
OwaisA3 8 years ago
cool!
xXUsernameXx 8 years ago
This is amazing! Thanks!
sandeepspillai 9 years ago
cool,its working fine!