ولكى تقوم بهذا اتبع الخطوات الآتية التى قدمها موقع tweak.

 

قم بفتح الـ notepad، وقم بنسخ الكود الآتى:

 

Dim Message, Speak

 

Message=InputBox("Enter text","Speak")

 

Set Speak=CreateObject("sapi.spvoice")

 

Speak.Speak Messagووضعه فى الصفحة التى ستظهر لك.

 

اضغط على File Menu ومنها على save as، بعدها All Types، وفى مكان اسم الملف قم بكتابة Speak.vbs، ثم اذهب إلى الملف الذى قمت بحفظه وافتحه، سيظهر لك مربع اكتب فيه أى نص واضغط ok سينطقه جهاز الكمبيوتر الخاص بك.