[Sean]

Have you ever wondered how can you make your computer speak whatever you input to it like in the movies? Would it not be fun? If only it was possible! Rejoice, because now it is possible. Well, if you wish to know how to do this, then you have come to the right place. With this trick, you can create a script in Windows which will make your computer speak whatever you input to it.

To create one such talk script, follow the steps given below:-

Steps:
1. Open Notepad.
2. Copy and paste the exact code given below.

Code:

Dim Message, Speak
          Message=InputBox("Enter  text","Speak")
          Set Speak=CreateObject("sapi.spvoice")
          Speak.Speak Message

3. Click on File Menu, Save As, select All Types in Save as Type option, and save the file as Speak.vbs or "*.vbs".
4. Double click on the saved file, a window will open like the one in the image. Enter some text in enter text column and click OK.

Now your Computer will speak / talk what you typed in Step 4. Try it yourself.

Windows Compatibility: This VBS file can be executed on all versions of Windows including Windows XP, Windows Vista and Windows 7.

Personal Experience: I personally showed this trick to many of my friends and they were literally left awestruck. You too can impress your friends by making your PC talk and be the Computer Wiz.

[Boss]

Oh my gawd, how cool! I will NEVER use this.

[Sean]

I talk to it when I'm lonely :lol:

[Fallen]

I can finally have friends now.

[0xDEAD10CC]

You can change the voice too:

Code:

dim msg, sapi, vcount
msg=InputBox("Enter a message","Voice Message")
set sapi=CreateObject("sapi.spvoice")
vcount = sapi.GetVoices().Count
for i = 0 To vcount - 1
   set sapi.Voice = sapi.GetVoices().Item(i)
   sapi.Speak msg
next