----------------------------------------------------
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
----------------------------------------------------
Just copy the above text and paste it in notepad and save it on ur desktop with name talk.vbs
Close the notepad
open the talk.vbs file
it ask u for Text
type a Text and hit OK
Done

Ikon Looks like this.

Example File Download it:
http://www.ziddu.com/download/5200254/talk.rar.html
No comments:
Post a Comment