كيف تجعل حاسوبك يتكلّم !!!

اليوم أتيتكم بحيلة فريدة من حيل الويندوز والتي من خلالها سوف تسمع صوت حاسوبك وهو يتكلّم ويعيد كل كلمة تكتبها

: ولعمل ذلك يكفي اتباع المراحل التالية (Notepad) هو برنامج بسيط يتم من خلال المفكرة

Notepad١. افتح ال

: ٢. قم بلصق الكود التالي

Dim Message, Speak

Message=InputBox("Enter Text to Talk o","Speak")

Set Speak=CreateObject("sapi.spvoice")

Speak.Speak Message

.VBS لحفظ البرنامج، اختر له أي اسم، لكن لا تنسى الإمتداد (Ctr+S)٣.اضغط على

كما هو موضح على الصورة (Tous les fichiers) الإفتراضي ب (fichiers texte) ثم استبدل نوع الحفظ

: هكذا مثلا

speeed04.vbs

: الذي قمت بحفظه وسوف تظهر لك هذه النافذة .vbs ٤.الآن دبل كليك على الملف

هذا كل شيء!! وسوف تسمع صوت جهازك وهو يعيد ما كتبته بصوت افتراضي ، OK ٥. أكتب ما تريد ثم اضغط

الآن اذا أردت من حاسوبك أن يعيد الكلمات التي تكتبها أكثر من مرة، فهذا هو الكود، أنا وضعت الرقم 10 كرقم افتراضي استبدله أنت بالرقم الذي يناسبك

Dim message, sapi

message=InputBox("Enter the text you want spoken","speak this")

set sapi=CreateObject("sapi.spvoice")

For i=1 to 10

sapi. Speak message

Next

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