इसके माध्यम से आप अपने कंप्यूटर को बात करना सकते हैं। तो और देर नहीं करके चले और जानें कैसे कम्प्यूटर को बात करना है।
पहले नोटपैड खोलें।
अब नीचे दिए गए कोड कॉपी करें नोटपैड- पेस्ट करें।
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
पहले नोटपैड खोलें।
| Figure-1 |
अब नीचे दिए गए कोड कॉपी करें नोटपैड- पेस्ट करें।
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
| Figure-2 |
इस बार File-Save As.. पर जाएँ और किसी भी नाम(dot)Vbs सेव करें (aaa. vbs)
| Figure-3 |
Save करने के वाद इसे खोलें और कम्प्यूटर से आप जो कहना चाहते हैं, ओ लिखकर OK- क्लिक करें।
| Figure-4 |
| Figure-5 |
Thank You


No comments:
Write comments