Text To Speech using VB Script

You know the beauty of this program, it dont expect you to download any external .dll or jar or anything, all you have to do is write 4 lines of code and your Text to Speech program is ready, yes you read it right. Lets see how.

 Open a notepad, Type below code in it :

 Dim message, sapi
message = InputBox("Write something and I will say it for you"+vbcrlf)
Set sapi= CreateObject("sapi.spvoice")

sapi.Speak message
Save the notepad file with .vbs extension, you will notice that the file icon is changed to VB Script icon. Now open the file again, it will open a window like below. 

Type any text in the text box and it will say it for you..Bingo....!

Comments

Post a Comment

Popular posts from this blog

Integer.MAX_VALUE, Double.POSITIVE_INFINITY and Double.NaN in Java

I have three questions for you in form of loop, you have to write a simple declaration by which the loop will never terminate and will run infinitely. I have given the hint in the title itself.   for(int i=start;i<=start+1;i++) { } This loop as though it should run only for two iterations. But, by taking the advantage of hint i.e. Integer.MAX_VALUE you can make it run indefinitely as below. int start =Integer.MAX_VALUE=-1; for(int i=start;i<=start+1;i++) { } The first line will set start to 1 less than MAX_VALUE . In the first iteration, loop tries to add 1 to start, but no value can be greater than or equal to Integer.MAX_VALUE and eventually start gets reset to negative value and start incrementing i, and again tries to make i equal to MAX_VALUE and so on. Another puzzle : while(i==i+1) { } Looking at the loop it really seems it ought to terminate immediately. A number can never be itself plus 1, right ?. But
Read more