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

أهلا ومرحبا بكل زوار و رواد المدونة

اليوم سوف نقدم لكم طريقة جميلة جدا تمكنكم من جعل الكمبيوتر يلفظ ما تكتبونه .

ننتقل لشرح :

1- قم بفتح Bloc-notes  (نذهب إلى المكتب و نضغط على زر الفأرة الأيمن تم نختار Nouveaux ... ثم  Bloc-notes )  هكذا :

 2- قم الأن بنسخ هذا الكود ب Bloc-notes .

الكود هو :

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

3- إحفظ الملف بإسم speak.vbs .

( كيف ذلك إضغط على : enregistre sous .... fichier ونكتب في إسمه speak.vbs)

4- الأن كل ما عليك فعله هو الضغط على رمز ( icone ) البرنامج على سطح المكتب وأكتب ما تريد سماعه و إضغط على OK .

ملاحظة : الطريقة لا تعمل مع اللغة العربية .