Notepad မွ အလုိအေလ်ာက္ စာမ်ား ရုိက္ေစျခင္း (Ghost Typing)

Notepad မွ အလုိအေလ်ာက္ စာမ်ား ရုိက္ေစျခင္း (Ghost Typing)

 ပထမဦးဆုံး Run box (win key + R) မွ notepad ကုိေခၚပါ။
ျပီးရင္ေတာ့ ေအာက္က ေပးထားတဲ့ coding ေတြကုိ copy ကူးလုိက္ပါ
ထုိ႕ေနာက္  File > Save > ပုံတြင္ ျပထားသည့္အတုိင္း လုပ္ေပးပါ

Copy ကူးရမည့္ coding မ်ား.......

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "T"
wscript.sleep 1000
wshshell.sendkeys "i"
wscript.sleep 1000
wshshell.sendkeys "n"
wscript.sleep 1000
wshshell.sendkeys "e"
wscript.sleep 1000
wshshell.sendkeys "k"
wscript.sleep 1000
wshshell.sendkeys "y"
wscript.sleep 1000
wshshell.sendkeys "a"
wscript.sleep 1000
wshshell.sendkeys "w"
wscript.sleep 1000
wshshell.sendkeys "."
wscript.sleep 1000
wshshell.sendkeys "b"
wscript.sleep 1000
wshshell.sendkeys "l"
wscript.sleep 1000
wshshell.sendkeys "o"
wscript.sleep 1000
wshshell.sendkeys "g"
wscript.sleep 1000
wshshell.sendkeys "s"
wscript.sleep 1000
wshshell.sendkeys "p"
wscript.sleep 1000
wshshell.sendkeys "o"
wscript.sleep 1000
wshshell.sendkeys "t"
wscript.sleep 1000
wshshell.sendkeys "."
wscript.sleep 1000
wshshell.sendkeys "c"
wscript.sleep 1000
wshshell.sendkeys "o"
wscript.sleep 1000
wshshell.sendkeys "m"
wscript.sleep 10
wshshell.sendkeys ""
wscript.sleep 10
wshshell.sendkeys " "
wscript.sleep 10
wshshell.sendkeys " "
wshshell.sendkeys " "
wscript.sleep 10
wshshell.sendkeys " "
wscript.sleep 10
wshshell.sendkeys " "
wscript.sleep 10
wshshell.sendkeys " "
wshshell.sendkeys "http://tinekyaw.blogspot.com/"

အားလုံးကုိ အစဥ္ေလးစားလ်က္