अब आपका कंप्यूटर बोलेगा जो आप उससे बुलवायंगे / Your computer will now speak to you

{ Published by Unknown - On 5:46:00 PM - 2 comments }
प्रिय मित्रो में आज फिर मैं आपके लिए लेकर आया हूँ एक रोचक ट्रिक जिसे पढ़कर आप बहुत खुश होंगे आपने इस ट्रिक का टाइटल तो पढ़ ही लिया होगा की "अब आपका कंप्यूटर बोलेगा जो आप उससे बुलवायंगे"! बस एक छोटा सा और मजेदार ट्रिक जिसे पढ़कर उपयोग में जरुर लें !इसकी पूरी जानकारी निचे पढ़े|

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


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



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

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