အပ်င္းေျပကြန္ျပဴတာကိုစကားေျပာခိုင္းႀကည္.မယ္

ဘာရယ္ေတာ.မဟုတ္ပါဘူးအပ်င္းေျပေပါ.ဗ်ာ.. ကြန္ျပဴတာကိုစကားေျပာခိုင္းႀကည္.ရေအာင္.။ ကဲ..Notepad ေလးဖြင္ျပီးေအာက္ကကုဒ္ေတြကိုေကာ္ပီကူးထည္.လိုက္ပါ.။

Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

.vbs ဆိုပီးထည္.ေပးလိုက္ျပီး Save လုပ္လိုက္ပါ..

Save လုပ္ထားတဲ.ဖိုင္ကိုကလစ္နွစ္ခ်က္နွိပ္ပီးဖြင္.လိုက္ပါ..

ပီးရင္ေပၚလာတဲ.ေဘာက္စ္ေလးထဲမွာကိုယ္ေရးခ်င္တာေရးျပီး OK ကိုနွိပ္လိုက္ပါ.. ကြန္ျပဴတာကသင္ေရးသလိုလိုက္ေျပာပါလိမ္.မယ္.။
တစ္ႀကိမ္တစ္ခါထဲမဟုတ္ပဲထပ္ခါထပ္ခါေျပာေစခ်င္တယ္ဆိုရင္ေတာ.ေအာက္ကကုဒ္နဲ.ေပါ.ေနာ္..

Dim message, sapi
message=InputBox("Enter the text you want spoken","speak this")
set sapi=CreateObject("sapi.spvoice")
For i=1 to 10
sapi. Speak message
Next