Notepad နဲ ့ကြန္ပ်ဴတာကိုစကားေျပာခုိင္းၾကည့္ရေအာင္

Note pad ကိုဖြင့္
ေအာက္ကဟာေလးကို ေကာ္ပီကူးထည့္လိုက္

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ၿပီးရင္ေတာ့ file type ကို *.vbs ထားၿပီး save လိုက္ပါ။
ၿပီးရင္ အဲဒီ .vbs ဖိုင္ေလးကို Double click နဲ ့ဖြင့္
ေနာက္ သင္ရိုက္ထည့္ခ်င္တဲ့စာကိုရိုက္ထည့္
အိုေက ကို ကလစ္ေပးလိုက္ရင္ သင္ရိုက္ထည့္ထားတာကိုဖတ္ျပပါလိမ့္မယ္။