2.Copy lalu paste script di bawah ini ke notepad yang anda buka tadi.
Dim message, sapi
message=InputBox("Apa yang ingin kamu inginkan untuk katakan?","Komputer Bicara")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3. Save as notepad tersebut dengan nama terserah yang penting extensionnya .vbs
(Misal = komputerbicara.vbs)
4. Jalankan dan ketik apa yang anda ingin ucapkan lalu tekan OK.
5. Selamat mencoba !