ကြန္ပ်ဴတာကေန မိမိ၇ိုက္ထည့္လုိက္တဲ့ဟာကိုအသံျပန္ထြက္ေစခ်င္ရင္...ပထမဆံုး notepad ကိုဖြင့္ပါ.....
Dim Message, Speak
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
Message=InputBox("Enter text","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message
၇ိုက္ထည့္ပါ..ျပီးရင္ ၤFile name မွာ.speak.vbs လို့ေရးျပီး Save as type ကိုAll Types လို့ေျပာင္းေပးလုိက္ပါ.
အဲဒါကိုသိမ္းျပီး၇င္ေတာ့ ႏိွပ္ျပီး မိမိျကိဳက္တာ၇ိုက္ထည့္လိုက္ပါ....ျပီး၇င္ ear ဖုန္းတပ္ျပီးနားေထာင္ျကည့္ပါ...ကြန္ပ်ဴတာက အသံထြက္ေပးပါတယ္.......English လိုပဲရတာေနာ္.......
0 comments:
Post a Comment