notepadေလးေရးျပီးcomputerကိုစကားေျပာခိုင္းၾကည့္ရေအာင္

သူငယ္ခ်င္းတို႕ ကၽြန္ေတာ္ ဒီရက္ပိုင္း notepad ေလးနဲ႕ ပတ္သတ္တဲ့ ဟာေလးေတြေရးဖို႕
စဥ္းစားထားတယ္ notepad အသံုး၀င္ပံုေလးေတြေပါ့
ကၽြန္ေတာ္ ဟိုေန႕က ဆိုဒ္တစ္ခုမွာ ေတြ႕လိုက္ရတယ္
သူတို႕လည္း ဒီနည္းေလးေတြကို တင္ထားၾကပါတယ္
ဒါေပ့မယ့္ တင္ထားတဲ့ေရးနည္းက မွားေနေတာ့ ဘယ္လိုမွ အလုပ္လုပ္မွာမဟုတ္ဘူး
ဒါေၾကာင့္ ကၽြန္ေတာ့ သိသေလာက္ေလးကို ျပန္ျပင္ေရးျပီး တင္ေပးလိုက္ပါတယ္..
ဒါေလးက ကိုယ္ ဘာဘဲ ရိုက္ရိုက္ ကိုယ့္ကို စကားလို ျပန္ေျပာလိမ့္မယ္ English လိုဘဲရမယ္ေနာ္ .....
အရင္ဆံုး Notpad တစ္ခုကို ဖြင့္...
ျပီးရင္ ေအာက္မွာေရးေပးထားတဲ့ ကုဒ္ေလးေတြအကုန္ notepad ထဲ ကူးထည့္လုိက္..

Dim msg, sapi
msg=InputBox("What do you want me to say?","LUCKYMYOTAW")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ျပီးရင္  save file မွာ lucky.vbs နဲ့ Save လုပ္လိုက္ပါ...
ျပီးရင္ Run ၾကည့္လိုက္ေပါ့ဗ်ာ...ျပီးရင္ေတာ့ သူငယ္ခ်င္းတို႕ ေရးခ်င္သလိုသာေရးျပီး
အျပင္းေျပေလး ကြန္ပ်ဴတာနဲ႕ စာရိုက္လိုက္ ျပန္ေျပာခုိင္းလိုက္လုပ္ေပါ့ဗ်ာ ေပ်ာ္စရာေလးဗ်
စမ္းၾကည့္လိုက္ေနာ္...