كيف تجعل حاسوبك يقرأ كل ما تكتبه له

السلام عليكم و رحمة الله و بركاته 

احبتي في الله زوار مدونة ordin truck 
موضوعي اليوم هو كيف تجعل حاسوبك يقرأ كل ما تكتبه له و هدا دون تثبيت اي برنامج على حاسوبك "اصنعه بنفسك"

شاهد الفيديو لمعرفة الطريقة 

__________code__________

Dim message, sapi

message=InputBox("what you wan me to 

say?","speak to me ")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

نهاية الموضوع 

لا تنسونا من صالح دعواتكم :)