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