14 August 2013

Trick : How to make Notepad type auto

នេះជាប្រភេទ Trick នៅពេលដែលអ្នក Run code នោះភ្លាមវានឹងបើក Notepad រួចសរសេរនៅអ្វីដែលអ្នកចង់បង្ហាញ។

1. សូមបើក Notepad ហើយធ្វើការ Copy code ខាងក្រោមនេះដាក់ចូល

Set wshshell = wscript.CreateObject("WScript.Shell")
Wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "W"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 120
wshshell.sendkeys "l"
wscript.sleep 200
wshshell.sendkeys "c"
wscript.sleep 100
wshshell.sendkeys "o"
wscript.sleep 140
wshshell.sendkeys "m"
wscript.sleep 100
wshshell.sendkeys "e"
wscript.sleep 50
wshshell.sendkeys " "
wscript.sleep 120
wshshell.sendkeys "t"
wscript.sleep 170
wshshell.sendkeys "o"
wscript.sleep 200
wshshell.sendkeys " "
wscript.sleep 50
wshshell.sendkeys "S"
wscript.sleep 120
wshshell.sendkeys "A"
wscript.sleep 160
wshshell.sendkeys "M"
wscript.sleep 200
wshshell.sendkeys "N"
wscript.sleep 100
wshshell.sendkeys "E"
wscript.sleep 100
wshshell.sendkeys "N"
wscript.sleep 100
wshshell.sendkeys "G"
wscript.sleep 100
wshshell.sendkeys "I"
wscript.sleep 100
wshshell.sendkeys "T"
wscript.sleep 100


2. រួចសូម Save file ដោយដាក់ឈ្មោះអ្វីក៏បានតែត្រូវដាក់ Extension ជា ".vbs"
Example : "autotype.vbs"
3. បន្ទាប់មក Double click លើវានោះអ្នកនឹងឃើញពី Trick ដ៏អស្ចារ្រ។ :)

*** Note : បើមានកន្លែងណាមិនយល់អាច Comment មកកាន់ខ្ញុំបាន ខ្ញុំនឹងដោះស្រាយជូនអ្នក។



SamnengIT © 2014-2015SamnengIT