Buka Program Notepad di komputer anda.
lalu masukkan code di bawah ini pada notepad :
Dim msg, idgs
msg=InputBox("Masukkan Kata","speak-speak")
Set idgs=CreateObject("sapi.spvoice")
idgs.Speak msg
save dengan nama "Ngomong.vbs" (terserah namanya apa aja, tapi extensi .vbs)
setelah itu buka file ngomong.vbs dan masukkan kata-kata yang ingin di ucapkan, lalu tekan ok.
rada garing sih bule yang ngomong
langkah ini juga bisa dilakukan lewat speech.
Control Panel -> Speech -> masukkan text yang ingin diucapkan di kolom