كيفية تحويل الكتابة الى صوت بدون برامج

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

قرجة ممتعة

الكود  :

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