طريقة إنشاء ملف ينطق كل ما تكتبه فيه باللغة الانجليزية
السلام عليكم
في هذا الموضوع سنتعرف على طريقة إنشاء ملف ينطق كل ما تكتبه فيه باللغة
الانجليزية ، وطريقة صنع هذا الملف هي طريقة سهلة جدا وبسيطة حيث ان الملف
سيتم صنعه عن طريق كود ، بدون إطالة من يريد صنع الملف فاليتبع الشرح
التالي
اولا: نفتح Bloc-note
تانيا: ننسخ ونلصق الكود التالي
message=InputBox("What would you like to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
بعد ذالك تقوم بحفظ الملف بالاسم الذي تريد ولاتنسى ان يحفظ الملف بصيغة VBS
عند فتح الملف سيكون بهذا الشكل ، نكتب في المربع الكلام الذي تريد ان ينطقه ونضغط OK
ومن هنا ينتهي الموضوع و إن كان هنالك اي إستفسار المرجوا طرحه في التعليق
ليست هناك تعليقات :
إرسال تعليق