Monday, August 13, 2012

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

ကုိယ္ႀကိဳက္တဲ့ စာသားထည့္ၿပီး ကြန္ပ်ဴတာကို စကားေျပာခိုင္းမယ္ဗ်ာ. ... ဘယ္လို ေပးေျပာမလဲ? ဒီေအာက္က အတိုင္းလုပ္ၾကည့္ပါ..

Notepad ကိုဖြင့္ပါ။.ၿပီးရင္ ဒီေအာက္က Code ကို Copy ယူၿပီး Notepad မွာ Paste ထည့္လိုက္ပါ..

Do
Dim msg, sapi
msg="Hey lady I love you do u love me"
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
loop

ၿပီးရင္ (ၾကိဳက္တဲ့ နာမည္ေပးပါ).vbs လိုနာမည္ေပးၿပီး Save As လုပ္လိုက္ျပီး Save လိုက္ပါ..။ဖိုင္နာမည္ေပးတဲ့ေနရာမွာ .vbs ကိုေတာ့ ထည့္ေရးပို.ဖို.ေတာ့မေမ.နဲ.ေနာ္။ ေနာက္ ကိုယ္ save ထားတဲ့ (ၾကိဳက္တဲ့ နာမည္ေပးပါ).vbs ကို ဖြင့္လိုက္ပါ..(Hey Lady I Love You Do U Love Me) ဆိုၿပီး ထပ္ခါထပ္ခါ ေျပာလာပါလိမ့္မယ္..အနီေရာင္နဲ႔ ျပထားတဲ့ စာသားကို ကုိယ္ႀကိဳက္တဲ့ စာသားနဲ႔ ဲ႔ေျပာင္းလို႕ရပါတယ္..

စကားေျပာတာကိုရပ္ခ်င္ရင္ CTRL + ALT + DELETE >>ကိုနိပ္ပါ။ အဲ့လိုမလုပ္ခ်င္ရင္ မိမိ ကြန္ပ်ဴတာနဲ.ေအာက္ဆံုးက Start Bar ေလးမွာ Right Click ေထာက္လိုက္ပါ။ေအာက္ဆံုးက ေန ၃ ေၾကာင္းေျမာက္မွာ Start Task Manager ဆုိုတာကို သြားလို႔ ရပါေသးတယ္။ျ႔ပီးရင္ Start task manager ကိုဖြင့္လိုက္ပါ ေနာက္ Processes TAB ထဲကိုဝင္ၿပီး wbscript.exe ကို႐ွာပါ။

ေတြ႔ၿပီဆိုရင္ သူ႔ကို Select ၿပီး End Process ကိုနိုပ္လိုက္႐ုံပါပဲ အဲဒါပါပဲခင္ဗ်ာ.. :)။ျပိးရင္ ကိုယ္ၾကိဳက္တဲ့ သူဆီကို အဲ့ဖိုင္ေလး ပို.ေပးျပီးေတာ့ ေနာက္လိုက္ၾကေပါ့ဗ်ာ။ကဲ.... စမ္းၾကည့္ၾကပါဦးဗ်ာ။ အဆင္ေျပၾကပါေစလို႔ ဆုေတာင္းေပး လိုက္ပါတယ္ေနာ္။

No comments: