(စကားပြောသော နုတ်ပတ်)

NOTEPAD မှာမိမိရိုက်ထည့်သည်များကို အသံထွက်
စကားပြေားခိုင်းစေလိုလျှင် အောက်ပါကုတ်ကိုနုတ်ပတ်ထဲကူးယူ၍
.VBS နှင့်သိမ်းပေးလိုက်ပါ။
- I LOVE YOU နေရာတွင်နှစ်သက်ရာစာသားများအစားထိုးနိုင်ပါသည်။
- ပိတ်ချင်လျှင် TASK MANAGER သုံး၍ပိတ်နိုင်ပါသည်။

Do
Dim msg, sapi
msg="1437 = I Love You"
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
loop