Speak notepad

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