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

السلام عليكم و رحمت الله

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

فقط قم بتنفيد هده الخطوات

1= قم بفتح مدكرة جديدة (document texte)

2= قم بنسخ هدا الكود و ضعه في المدكرة

Dim msg, sapi
msg=InputBox("Enter your text for conversion– ","By redvirus")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

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

4= الان ستجد الملف موجود على سطح المكتب قم بفتحه

5= قم بكتابة النص الدي تريد سماعه تم اضغط على ok انتضر قليلا و سيتم قراءة النص