Sunday, April 19, 2009

Speak

Copy the following text and paste it into Notepad

"Right click on the desktop >> New >> Text Document"


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

Save the file as ‘speak.vbs‘ (be sure to include the .vbs)


Now double click on speak.vb and you’ll see an input box.

Type your message, press enter, and then listen to your PC speaking.

If the code above does not work…

You’ve probably run in to one of two problems:


1. Your browser displays the quotation marks differently. Go back to the Notepad file and replace all the quotes (”). Save the file and try again.


2. You do not have the SAPI installed on your computer, so this will not work (very unlikely as this comes with Windows, but if you have a custom/pirate version this may be the case.)

No comments:

Recommended Post

Related Posts with Thumbnails