နည္းနည္းေလးေဆးထိုးၾကရေအာင္(၂) Ghost Typing

အရင္ကေတာ့ auto စာ၇ိုက္ေပးတာေလးကို batch နဲ႕ေရးခဲ့တယ္
အခု vbscript ေလးနဲ႕ေရးၾကမယ္

---------------------------------

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 500
wshshell.sendkeys "M"
wscript.sleep 200
wshshell.sendkeys "Y"
wscript.sleep 200
wshshell.sendkeys "A"
wscript.sleep 200
wshshell.sendkeys "N"
wscript.sleep 200
wshshell.sendkeys "M"
wscript.sleep 200
wshshell.sendkeys "A"
wscript.sleep 200
wshshell.sendkeys "R"

wscript.sleep 300
wshshell.sendkeys " "
wscript.sleep 170
wshshell.sendkeys "I"
wscript.sleep 200
wshshell.sendkeys "T"
wscript.sleep 200
wshshell.sendkeys "g"
wscript.sleep 200
wshshell.sendkeys "r"
wscript.sleep 200
wshshell.sendkeys "o"
wscript.sleep 200
wshshell.sendkeys "u"
wscript.sleep 200
wshshell.sendkeys "p"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 100
wshshell.sendkeys "/"
wscript.sleep 400
wshshell.sendkeys "Kglay"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 300
wshshell.sendkeys "KoPhyo"
wscript.sleep 700
wshshell.sendkeys "Thanks"

-------------------------------------------------
အေပၚကကုတ္ေတြကို notepad ထဲကူးထည္႕ပါ ျပီး၇င္
filename.vbs ( .vbs extension နဲ႕ save လိုက္ပါ )
စာေလးေတြ auto ၇ိုက္သြားတာေတြ႕ရပါလိမ့္မယ္ :)

code ထဲက sendkeys မွာ ေပၚေစခ်င္တာကိုျပန္ျပင္ႏုိင္ပါတယ္
sleep မွာေတာ့ စာေပၚမဲ့ၾကာခ်ိန္ကိုစိတ္ၾကိဳက္သတ္မွတ္ႏုိင္ပါတယ္

* Kglay KoPhyo *
( MyanmarITgroup )