كيف تجعل جهازك ينطق اى كلمة تكتبها بطريقة بسيطة

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

الكود الذى وضعتة فى الملف :

hatem=inputbox("type to say")
Set SapI = CreateObject("SapI.Spvoice")

SapI.Speak hatem


الاسم الذى سميت بة الملف :      pc.vbs

وهذا هو الشرح :