Tuesday, April 9, 2013

speaking VB scripts

english pronunciation ကိုအေထာက္အကူျဖစ္ေစမဲ့ vb scripts ေလးပါ။ ေအာက္က အျပာေရာင္နဲ႔ေရးထားတဲ့ code ေတြကို copy ကူးျပီး notepad ထဲမွာ paste လုပ္ပါ။ ျပီးရင္ speak.vbs ဆိုတဲ့ vbs extension နဲ႕ save မွတ္လိုက္ပါ။ speak.vbs file ကို ဖြင့္လိုက္ျပီး စာရိုက္လိုက္ရင္ ရိုက္လိုက္တဲ့ စာေၾကာင္းကို ကြန္ပ်ဴတာကအသံထြက္ေပးပါလိမ့္မယ္။ ေက်းဇူးတင္ပါတယ္။

Dim msg, sapi
msg=InputBox("Enter your text–www.ourtechworld.co.cc","Technical World Text-To-Audio Converter by Apro")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

No comments:

Post a Comment