القائمة الرئيسية

الصفحات

latest news

اجعل الكمبيوتر الخاص بك ينطق ماتريد

اولا نقوم بفتح المفكرة

ثم ننسخ الكود التالي

Dim userInput

userInput = InputBox("Write your message here")

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak userInput 
ثم احفظ الملف بامتداد .vbs
 على سبيل المثال       voice.vbs

 ok اكتب الجملة التي تريدها ثم نضغط على موافق 
  

وسوف تسمع 

الكمبيوتر ينطق الجملة التي كتبتها