Membuat Komputer dapat Berbicara

Cara Membuat Komputer/Laptop dapat berbicara hanya dengan menggunakan NOTEPAD

langsung saja saya kasih code,cara dan langkah" nya

1. Buka Notepad
2. Isikan code dibawah ini ke notepad Anda:
   
    Dim message, sapi
    message=InputBox("What do you want me to say?","Alfattah Code")
    Set sapi=CreateObject("sapi.spvoice")
    sapi.Speak message

    seperti :

 
3. tulisan merah tersebut dapat diganti sesuai keinginan, LALU.. save notepad dengan .vbs (bukan .txt)
    contohnya alfattah.vbs..
   
   kayak gini:

                                                      

4. lalu klik save.. kalo dah disave, klik file tersebut lalu tulis apa yang mau anda suruh ke komputer untuk       dibilang..lalu enter/ok.. tunggu berapa detik, ngomong deh tuh komputer.

 contohya gini ni:

SELESAI DEH,.. WKWKWKWK