XP Talk with a few code ( Not Virus )

Xp မွာ အနည္းငယ္ ကလိၾကည္႔ရေအာင္။ Notepad ကို ဖြင္႔လိုက္ပါ။ျပီးရင္ ေအာက္က ေပးထားတဲ႔ Code ေလးကို ကူးထည္႔လိုက္

Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

ကူးထည္႔ျပီးရင္ Filename.vbs နဲ႔ သိမ္းလိုက္ပါ။ Filename ေနရာမွာ မိမိႏွစ္သက္ရာ အမည္ျဖင္႔ သိမ္းႏိုင္ပါတယ္။ အဓိက Extension က .vbs ျဖစ္ဖို႔ပဲ။ သိမ္းျပီးရင္ အဲဒီဖုိင္ေလးကို Double Click ႏွိပ္ျပီး ဖြင္႔လိုက္ပါ။ ဒီလို Box ေလး တက္လာပါမယ္။




အဲဒီ Box မွာ Text ရိုက္စရာ ေနရာေလးရွိတယ္။ မိမိၾကိဳက္ရာ ( Only English Words ) ကို ရိုက္ထည္႔ျပီး OK ေပးလိုက္ပါ။ သူဘာေျပာမလဲဆိုတာကို ကိုယ္တိုင္ပဲ စမ္းၾကည္႔လိုက္ပါ။ { Sound Box ေလး ဖြင္႔ထား ( သို႔ ) Earphone တပ္ထားပါ }

ေပ်ာ္ရြင္ပါေစ