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

از منوی استارت وارد ران شده و عبارت notepad را وارد نموده و اینتر بزنید تا ویرایشگر نوت پد باز شود

اکنون دستورات زیر دقیقا وارد نوت پد کنید

Dim msg, sapi
msg=InputBox("Matneh khod ra vared namaeed!","Sokhangoo")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

سپس از منوی فایل گذینه ی Save را انتخاب کنید حال نامی برای فایل خود در نظر گرفته و ان را با فرمت .VBS ذخیره کنید
اکنون به محلی که فایل ذخیره شده بروید و فایل ساخته شده را با دوبار کلیک اجرا نمایید

خواهید دید پنجره ای باز میشود که با تایپ عبارت مورد نظر خود در قسمت مربوطه و فشردن دکمه OK میتوانید منتظر شنیدن عبارت وارد شده خود توسط کامپیوتر شوید

لازم به ذکر است که اینکار طبعأ تنها بر روی حروف انگلیسی امکان پذیر است