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

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

طريقة الشرح:
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 .

Posted in: كمبيوتر