Text Bercakap

Dim msg, cakap
do
msg = InputBox("Masukkan Ayat Dibawah :","Text Bercakap by try","try")
Set cakap=CreateObject("sapi.spvoice")
cakap.Speak msg
Loop until msg="berhentea"
msgbox "Terima Kasih Menggunakan Program Ini.",,"Terima Kasih"

copy sume tu dlm notepad then save as la pape.vbs..contoh cakap.vbs ke..utk berhenti korg taip dlm kolum tu berhentea coz berhentea = berhenti dr cara die sebut.. =))


klu nk simple yg ni..

Dim msg, cakap
msg = InputBox("Masukkan Ayat Dibawah :","Text Bercakap")
Set cakap=CreateObject("sapi.spvoice")
cakap.Speak msg