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

بدین منظور:
از منوی Start وارد Run شده و عبارت notepad را وارد نموده و Enter بزنید تا ویرایشگر Notepad ویندوز باز شود.
اکنون دستورات زیر را عینأ داخل Notepad کپی نمایید:
Dim msg, sapi
msg=InputBox(“Matneh khod ra vared namaeed! www.Tarfandestan.com”,”Sokhangoo”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak msg

سپس از منوی File گزینه Save را انتخاب نمایید.
حال نامی برای فایل خود در نظر گرفته و آن را با فرمت vbs. ذخیره کنید. به عنوان مثال نام فایل خود را Tarfandestan.vbs بگذارید.

منبع  : پارس ناز

برای مشاهده کامل مطلب کلیک کنید