Program Komputer bicara

Ketik code berikut dinotepad dan simpan dengan exstensi (.Vbs)


Dim msg, sapi
msg = "kabul is my name"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg


Atau


Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg