طريقة إنشاء ملف ينطق كل ما تكتبه فيه باللغة الانجليزية

السلام عليكم

في هذا الموضوع سنتعرف على طريقة إنشاء ملف ينطق كل ما تكتبه فيه باللغة الانجليزية ، وطريقة صنع هذا الملف هي طريقة سهلة جدا وبسيطة حيث ان الملف سيتم صنعه عن طريق كود ، بدون إطالة من يريد صنع الملف فاليتبع الشرح التالي

اولا: نفتح Bloc-note

تانيا: ننسخ ونلصق الكود التالي 

message=InputBox("What would you like to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

بعد ذالك تقوم بحفظ الملف بالاسم الذي تريد ولاتنسى ان يحفظ الملف بصيغة VBS

الملف سيكون بهذا الشكل

عند فتح الملف سيكون بهذا الشكل ، نكتب في المربع الكلام الذي تريد ان ينطقه ونضغط OK