كيف بتخلي الكمبيوتر يحكي

1- افتح المفكرة notepad

2- اكتب المقطع البرمجي التالي:

Dim Message، Speak

Message=InputBox("Enter text"،"Speak")

Set Speak=CreateObject("sapi.spvoice")

Speak.Speak Message

3- أحفظ الملف على سطح المكتب بإسم speak.vbs

4- افتح الملف وأستمتع