Make Computer Speak
-----------------------------
Open notepad, type
Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoic e”)
sapi.Speak message
-Save it as "speak.vbs"
-----------------------------
Open notepad, type
Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoic
sapi.Speak message
-Save it as "speak.vbs"
Comments
Post a Comment