Speak! for Your Computer

Introduction: Speak! for Your Computer

About: My name is TOX1K DEFTON3, or TOX1K for short. I am 12 years old and I like to make instructables on how to tinker around in your computer and to make simple yet very cool drawings from video games and such. My…

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!

Be the First to Share

    Recommendations

    • Mason Jar Speed Challenge

      Mason Jar Speed Challenge
    • Bikes Challenge

      Bikes Challenge
    • Remix Contest

      Remix Contest

    5 Discussions

    0
    AndeyV
    AndeyV

    3 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

    0
    OwaisA3
    OwaisA3

    4 years ago

    cool!