غير متصل
من فضلك قم بتحديث الصفحة لمشاهدة المحتوى المخفي

كود:
hatem=inputbox("type to say")
Set SapI = CreateObject("SapI.Spvoice")
SapI.Speak hatem
احفظ المستند باسم pc.vbs
مثل الصورة

قم بتشغيل الملف . لتظهر لك هذه النافذة .
قم بادخال النص بالانجليزية واظغط على انتري .

ستسمع الكمبيوتر يقرا ما كتبت .
اتمنى ان تعجبكم هذه التجربة .


التعديل الأخير: