How to make your computer speak whatever you type
Step1: Open a notepad.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Step2: Copy and paste the above code in the notepad and save it as speak.vbs on your desktop.
Step3: Now click on the speak.vbs file and type the content that you want your computer to speak.
Subscribe to:
Post Comments (Atom)
Post a Comment