စာလံုးေပါင္းအသံထြက္ႏိုင္မည့္programကိုnotepadသံုး၍ဖန္တီးျခင္း

က်ေတာ္တို႔ရိုက္ထည့္သမွ်စာသားေတြကိုသူကအသံထြက္ျပမွာပါ
အရင္ဆံုးnotepad ကိုဖြင့္ပါျပီးရင္က်ေတာ္ေပးထားတဲ့စာသား
ေတြကိုေကာ္ပီကူးထည့္ audio.vbs ဆိုျပီး save လိုက္ပါဖြင့္လိုက္
မိမိသိလိုေသာစာလံုးကိုရိုက္ထည့္ျပီးေတာ့အသံထြက္ကိုၾကည့္ႏိုင္ပါတယ္
မရွင္းရင္ပံုေတြကိုအရင္ၾကည့္လို္က္ပါ

စာသားကဒီမွာပါ

Dim msg, sapi 
msg=InputBox("Enter your text for conversion–www.tips4mm.tk","Tips And Tricks For All") 
Set sapi=CreateObject("sapi.spvoice") 
sapi.Speak msg