هذه الطريقة تجعلك تكتب ما تريد وتجعل الكمبيوتر يتحدث ما كتبت.
اذهب الى المفكرة NotePad واكتب الكود التالي دون اي اضافات
Dim message, sapi
message=InputBox(“Enter the **** you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
الكود
قم بتخزين الملف بالاسم الذي تريد ولكن اكتب في نهاية الاسم الامتداد.VBS
فمثلاً : mb.VBS
احفظ..ثم شغل واكتب ما تريد
اذا لم يعمل واظهر وجود خطأ، قم بتحميل الملف من هنــــــا http://mhdbadi.com/wp-content/uploads/2008/11/talk.txt وهو بصيغة نص على Notepad ، من File > Save as وطبق خطوات الحفظ السالفة الذكر
اذهب الى المفكرة NotePad واكتب الكود التالي دون اي اضافات
Dim message, sapi
message=InputBox(“Enter the **** you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
الكود
قم بتخزين الملف بالاسم الذي تريد ولكن اكتب في نهاية الاسم الامتداد.VBS
فمثلاً : mb.VBS
احفظ..ثم شغل واكتب ما تريد
اذا لم يعمل واظهر وجود خطأ، قم بتحميل الملف من هنــــــا http://mhdbadi.com/wp-content/uploads/2008/11/talk.txt وهو بصيغة نص على Notepad ، من File > Save as وطبق خطوات الحفظ السالفة الذكر
