تبدیل متن به گفتار با ساخت یک فایل سخنگو

[ســیــنــا شیــطــون]

احتمالأ شما نیز تاکنون با استفاده از نرم افزارهای مختلف و یا از طریق قسمت Speech ویندوز XP متون خود را به گفتار تبدیل کرده اید. به طوریکه متن را تایپ نموده و کامپیوتر آن را برای شما میخواند. اما شاید برای شما نیز دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
جالب باشد که بتوانید خودتان به سادگی همچین برنامه ای بسازید!

به طوریکه خروجی شما یک فایل کوچک شده که با اجرای آن و تایپ حروف کامپیوتر آن را برای شما میخواند! قطعأ این راه سریعترین و جذاب ترین راه برای تبدیل نوشتار به گفتار است!
بدین منظور:
از منوی Start وارد Run شده و عبارت notepad را وارد نموده و Enter بزنید تا ویرایشگر Notepad ویندوز باز شود.
اکنون دستورات زیر را عینأ داخل Notepad کپی نمایید:
Dim msg, sapi
msg=InputBox("Matneh khod ra vared namaeed! دیدن لینک ها برای شما امکان پذیر نیست. لطفا ثبت نام کنید یا وارد حساب خود شوید تا بتوانید لینک ها را ببینید.
http://www.Tarfandestan.com ","Sokhangoo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
سپس از منوی File گزینه Save را انتخاب نمایید.
حال نامی برای فایل خود در نظر گرفته و آن را با فرمت vbs. ذخیره کنید. به عنوان مثال نام فایل خود را Tarfandestan.vbs بگذارید.
پس از اینکار بر روی دکمه Save کلیک کرده تا فایل شما در محل مورد نظر ذخیره گردد.
اکنون به محلی که فایل ذخیره شده بروید و فایل ساخته شده را با دوبار کلیک اجرا نمایید.
خواهید دید پنجره ای باز میشود که با تایپ عبارت مورد نظر خود در قسمت مربوطه و فشردن دکمه OK میتوانید منتظر شنیدن عبارت وارد شده خود توسط کامپیوتر شوید.
لازم به ذکر است که اینکار طبعأ تنها بر روی حروف انگلیسی امکان پذیر است.