Dim msg, sapi
msg=InputBox("Enter your text for conversion–www.shwekoyantaw.multiply.com","Shwekoyantaw Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
2)ျပီးရင္သင္စိတ္ၾကိဳက္နာမည္နဲ႕ ( .vbs) ဖိုင္နဲ႕ေဆ့။
3)ျပီးရင္ သင္ေဆ့ထားတဲ့ program ေလးကိုဖြင့္ text box ေလးမွာသင္စိတ္ၾကိဳက္စာေတြထည့္ ok ႏိွပ္
လိုက္ရင္ရျပီ။
မွက္ခ်က္။ ။ English စာလံုးေတြပဲရမယ္။
0 comments:
Post a Comment