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