Make Your Pc To Talk What You Type

In this session i am going to show you a cool trick to make your pc to talk whatever you type by copying the below code and pasting it in notepad.

Steps to follow:

1.) Open Notepad
2.) Paste the following code

Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message


3.) Save the file, give it any name, but make sure you also type .VBS after the name. Also, for the Save as type: box, choose All files instead of the default Text Documents.


4. Now double click the .vbs file and you should see the window as show below





5.) Type what ever you want and click on OK . That’s it , your computer will speak what ever you typed in the default voice

If you want to make your computer repeat the words then add a loop. Here is the code :

Dim message, sapi
message=InputBox("Enter the text you want spoken","speak this")
set sapi=CreateObject("sapi.spvoice")
For i=1 to 10
sapi. Speak message
Next

It will repeat the same word a ten times.

That's It!

Feel free to hit Like, Share or Comment if you like this post.

Post a Comment