السلام علیکم دوستوں!
آئیے آج ایک چھوٹی سی ٹرک آپ سے شئیر کرتا ہوں۔ (ممکن ہے کہ کچھ ساتھی اس ٹپ/ٹرک سے واقف ہوں)


نوٹ پیڈ کھولیں اور مندرجہ ذیل کوڈنگ بعینہ کاپی پیسٹ کردیں۔


Dim userInput
userInput = InputBox("Write a message for me to say")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput

اب نوٹ پیڈ کی اس فائل کو کسی بھی نام سے(.vbs) کے ایکسٹینشن سے سے کہیں بھی مثلا ڈیسک ٹاپ پر سیو کردیں ۔ میں نے اسے Talk.vbs کے نام سے سے سیو کیا ہے۔ یار رہے کہ جب آپ فائل سیر کررہے ہوں تو "Save as type" والے مینو میں آپ نے "All files" سلیکٹ کیا ہوا ہو۔

سیو کرنے کے بعد یہ فائل کچھ اس شکل میں آپ کے ڈیسک ٹاپ پر سیو ہوجائے گی۔



اب اسے ڈبل کلک کریں تومندرجہ ذیل شکل کی ونڈو آپ کے سامنے آئے گی۔



یہاں پر آپ جو بھی لکھیں گے آپ کا کمپیوٹر اُسے پڑھ کر سُنائے گا۔


اس ٹپ کے بارے میں‌آپ کی رائے کا انتظار رہے گا ۔