Monday, July 23, 2012

keyboard ကိုကခိုင္းမယ္

ေအာက္ကကုတ္ေလးကို 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 ဖြင္႔ျပီးစာရိုက္ၾကည္႔ပါဦး

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

No comments:

Post a Comment

Thanks for your comments
Welcome from cyberoot