کامپیوتر شما صحبت می کند!

امروزه با وجود Cortanaیا ابزارهای مشابه، صحبت کردن کامپیوترها چیز عجیب و غریبی به نظر نمی رسد. اما زمانی که نسخههای اولیه از سیستم عامل ویندوز تاره منتشر شده بود، خواندن یک عبارت یا متن توسط ویندوز موضوع شگفت انگیزی محسوب می شد. شما می توانید دوباره آن دوران را زنده کنید. ابتدا یک داکیومنتNotepadرا باز کنید، سپس کد زیر را در آن قرار دهید:

 

Dim Message, Speak
(“Message=InputBox(“Enter text”,”Speak
(“Set Speak=CreateObject(“sapi.spvoice
Speak.Speak Message

آن را با نام POKER.vbs ذخیره نمایید. البته باز هم نام فایل می تواند هر چه که می خواهید باشد. فقط اطمینان حاصل کنید که پسوند آن .vbs است. حال بر روی فایل دوبار کلیک کنید و متنی را که قصد دارید توسط کامپیوتر خوانده شود وارد نمایید.

شگفت زده می شوید وقتی کامپیوتر شما آن متن را می خواند!!