Computer Trick That Make Your PC Speak
![]() |
Code:
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Paste the code in your Notepad |
After saving it, Locate where you save it and then double click it, and a Box will appear and ask you this "What do you want me to say?"
Save it with .vbs at the end |
Just type a message that you want your computer to say, and click "Speak to me" Ok button.
Type any message you want to computer say |
That's it, Wait a sec and hear your computer speak.
![]() |
Have you enjoy? Please help us improve this article, We encourage you to kindly please post a comment below for your reaction, correction, question and suggestion. Thanks
Other Recommended Posts:
Computer Tips and Tricks
- How To Speed Up / Optimize Start Menu
- How To Delete / Remove Undeletable Files
- How to Disable / Enable Auto Defragmentation at Start up & Boot time
- How to Disable / Block USB Flash Drive's Autorun
- Customize Window Default User Account Picture
- Complete List of Keyboard Shortcut Keys in Window XP
- How To Create Password Protected Folder Without Using Software
- How To Fix Mozilla Firefox's Addons Compatibility Problem
