क्या आप का कंप्यूटर बोलता है ?

एक छोटा सा .vbs कोड है ये जिस के सहाएता से आप अपने कंप्यूटर से कुछ भी बोलवा सकते है |

पहले नोट पयेड खोले 
फिर निचे लिखे हुवे कोड को कॉपी कीजिये 


और फिर नोट पयेड में पेस्ट कर दीजिये
save as क्लिक कीजिये और किसी भी नाम से .vbs लगा के सेव कर दीजिये |
 जईसा की मै ने इस कोड में हिंदी में १ लाइन लिखा है अगर आप इस को सेव करेंगे तो 
Encoding में Unicode को सेलेक्ट करे |और अगर आप इस कोड में लिखे हिंदी के जगह 
अपना कुछ इंग्लिश में लिखना चाहते है तो उसको सेव करने के समय...
Encoding में  ANSI को सेलेक्ट करे |

Dim message, sapi
message=InputBox("अपने कंप्यूटर से क्या बोलवाना चाहते है
आप ?यहाँ लिखे....")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

अब सेव किये हुवे icon को क्लिक करे |