تحويل النص إلى صوت بدون استعمال برامج

في هذه التدوينة سأريك حيلة تستطيع من خلالها تحويل أي نص إلى صوت من دون استعمال أي برامج ، عليك فقط أن تتبع بعض الخطوات البسيطة التالية: 

1- قم بفتح المذكرة "notepad" وانسخ الكود المذكور أدناه في المذكرة

Dim msg, sapi

msg=InputBox("Enter your text for conversion– ","By computer freaks")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

2- بعد نسخ الكود في المذكرة قم بحفظ الملف على سطح المكتب بامتداد vbs وليكن مثلا بهذا الشكل name.vbs

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

4- قم بكتابة النص داخل الصندوق وثم انقر على ok سيتم قراءة النص .