Text to Speech Using VBS

About: I love everything from computers/gaming consoles to skateboarding and enjoying life. My goal is to create instructables that may benefit the user in anyway possible.

Hello guys and once again welcome to my instructable. Today i'm going to show you how to make a really easy to use text to speech program. Lets get started :D

Step 1: Step 1: Open Notepad and Paste Code

Open notepad and paste this into it:

Dim message, sapi
message=InputBox("What do you want me to say?","Made by Candy") Set sapi=CreateObject("sapi.spvoice") sapi.Speak message

Make sure you save it as speech.vbs

also change the "Save as" to all files

Step 2: Open It Up

Once you save it find wherever you saved it to and open it.

Type whatever you want into the box and turn you volume up.

It should work. Anyways thanks guys for reading and i hoped i help some of you make your computer talk.

Have a nice day :D



    • Build a Tool Contest

      Build a Tool Contest
    • Sweet Treats Challenge

      Sweet Treats Challenge
    • Remix Contest

      Remix Contest

    2 Discussions


    2 years ago

    what if i want the box to not close when i click ok?

    1 reply

    Reply 1 year ago

    put "do" as the top line (without the quotation marks) and "loop" at the bottom. (without quotation marks)