تبدیل متن به گفتار در ویندوز

با سلام

شاید بعضی موقعها دوس داشته باشین یه متنه انگلیسی و بشنوین تلفظش چجوریه
نرم افزارای زیادی واسه اینکار هست مث بابیلان و ...
اما شما میتونین به وسیله خود 1 هم اینکارو انجام بدین بوسیله notepad
note pad باز میکنید و دستورات برنامه نویسی زیرو وارد میکنید
Dim input, obj
input=InputBox("enter your text :","Automatic")
Set obj =CreateObject("sapi.spvoice")
obj.Speak input
بجای entex your text هرچی دوس داشتین میتونین بنویسین .. مثلا متن خود را وارد کنید ..
کاری که این دستورات میکنن نشون دادن یه پیغام ورودی در یه پنجره هستش و ساخت یک نمونه از شی sapi.spvoice و فراخوانی متد Speak است.
کسایی که برنامه نویسی خوندن میدونن چی میگم ..

خب حالا دستورات و وارد کردیم ذخیره میکنیم توجه کنید فایل ذخیره شده باید با پسوند vbs. باشه روی دسکتاپ ذخیره کنید ..

حالا روی فایل ساخته شده دوبار کلیک کنید یه پنجره ظاهر میشه .. به شکل زیر
داخل باکس متن متنی که میخاین کپی کنید یا تایپ کنید بعدش ok بزنید اون متن برای شما خونده میشه از طریق بلندگوها میتونید گوش کنید ..

امیدوارم این ترفند ساده ویندوزی براتون مفید باشه ..