فادي
عضو مجتهد
الساغة الان :
الجنس : 
عدد المساهمات : 273
نقاط : 808
تقييم الموضوع : 12
تاريخ التسجيل : 22/08/2012
 |  موضوع: بالفيديو كيفية تحويل الكتابة الى صوت بدون برامج الثلاثاء يناير 21, 2014 7:09 pm | |
| كيفية تحويل الكتابة الى صوت بدون برامج
الكود :
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
| |
|
