ေအာက္ကကုတ္ေလးကို notepad ဖြင္ျပီး

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

paste လုပ္လိုက္ပါ

ျပီးရင္ .vbs ဆိုျပီး save လိုက္ပါ

save တဲ႔အခါ all file လုပ္ေပးလိုက္ပါ

ျပီးရင္ notepad ဖြင္႔ျပီးစာရိုက္ၾကည္႔ပါဦး


နဂိုအတိုင္းျပန္လိုခ်င္တယ္ဆိုရင္
taskmanager ဖြင္ျပီး wscript.exe ဆိုတာကိုရွာျပီး end process လုပ္လိုက္ေနာ္
ေပ်ာ္ပါေစ

thank that is funny.....

စမ္းၾကည့္လိုက္မယ္ေနာ္
ေက်းဇူးပါ [You must be registered and logged in to see this image.]

send key မွာ ျမန္မာ font ေပးလို႕ရလားဗ်..
သိရင္ေျပာျပပါလား ...
ျမန္မာ font ေျပာင္းမယ္ဆို
shift+Ctrl ေပးရမွာ သူ႕ကုတ္ေလးသိခ်င္လို႕
.................
ရွင္းရွင္းေျပာရရင္
you are a fool ေနရာမွာ .. ျမန္မာလိုေရးခ်င္တာဗ်..ဟဲ

Code:

WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "yo"
WScript.Sleep 500
WshShell.SendKeys "u "
WScript.Sleep 500
WshShell.SendKeys "ar"
WScript.Sleep 500
WshShell.SendKeys "e "
WScript.Sleep 500
WshShell.SendKeys "a "
WScript.Sleep 500
WshShell.SendKeys "fo"
WScript.Sleep 500
WshShell.SendKeys "ol "