4 Membuat PC korang bercakap !

Share

Korang try la mende nie..
Keajaiban menggunakan notepad ! ^^

Care2nye :
~~copy script kt bwh nie..msukkan kt dlm notepad.

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message

~~lpas 2,korang save sebagai talking.vbs @ pape yg sewktu dgn nye..
~~akhir skali,klu rjin,korang tukarkan la icon dye. Psl icon default dye x lawa sgt.

~~Saya lebih menggalakan menggunakan english,berbanding Bahasa Melayu..Kerana sbutan melayu dye x btol..

Selamat mencuba !
Sumber.. Blog