How to make your computer speak
1. Open your Notepad.
2. Copy the following code
Dim message, sapi
message=InputBox("What do you want me to say?","Get it Free (Muft)!")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3. Now save as speak.vbs
4.Now open that saved file then type anything there then click ok and your computer will speak...
2. Copy the following code
Dim message, sapi
message=InputBox("What do you want me to say?","Get it Free (Muft)!")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3. Now save as speak.vbs
4.Now open that saved file then type anything there then click ok and your computer will speak...
Comments
Post a Comment