إجعل الحاسوب يقرأ ما تكتبه

هذه الطريقة تجعلك تكتب ما تريد وتجعل الكمبيوتر يتحدث ما كتبت.

اذهب الى المفكرة NotePad واكتب الكود التالي دون اي اضافات

Dim message, sapi

message=InputBox(“Enter the **** you want spoken”,”Speak This”)

Set sapi=CreateObject(“sapi.spvoice”)

sapi.Speak message

الكود

قم بتخزين الملف بالاسم الذي تريد ولكن اكتب في نهاية الاسم الامتداد.VBS

فمثلاً : mb.VBS

احفظ..ثم شغل واكتب ما تريد

اذا لم يعمل واظهر وجود خطأ، قم بتحميل الملف من هنــــــا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] وهو بصيغة نص على Notepad ، من File > Save as وطبق خطوات الحفظ السالفة الذكر