اجعل الكمبيوتر يلفظ كل ما تكتبه

قد يبدو الاعلان غريب ولكنها الحقيقه, سنعلكم في قسم خدع الكمبيوتر طريقه لجعل جهاز الكمبيوتر الخاص بك ينطق ما تكتبه و بدون اي برامج اضافيه, لن اكتب الكثير و هي بنا علي التطبيق.

• قم بفتح Notepad جديد.

اضغط Start ... ثم....  All programs ... ثم... Accessories ... ثم... Notepad.

• قم بنسخ الكود التالي.

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

• احفظ الملف بإسم speak.vbs
•  الان كل ما عليك فعله هو الضغط علي رمز البرنامج علي سطح المكتب واكتب ما تريد سماعه و اضغط علي .OK

ملاحظه: في بعض الاحيان لا يعمل البرنامج مع اللغه العربيه.