Monday 23 July 2012

Magic Coding

Learn Simple Magic Trick Using Notepad


Today we will learn how to make some magic trick.


Item that we need :- Notepad 

Step : 
1) Open Notepad
2) Paste this code into your notepad


set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "Tutorial"
WScript.Sleep 2000
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "How"
WScript.Sleep 2000
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "To"
WScript.Sleep 2000
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "Create"
WScript.Sleep 2000
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "Magic"
WScript.Sleep 2000
WshShell.SendKeys "."
WScript.Sleep 55
WshShell.SendKeys "."
WScript.Sleep 55
WshShell.SendKeys "."
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "T"
WScript.Sleep 350
WshShell.SendKeys "o"
WScript.Sleep 159
WshShell.SendKeys "d"
WScript.Sleep 160
WshShell.SendKeys "a"
WScript.Sleep 150
WshShell.SendKeys "y"
WScript.Sleep 150
WshShell.sendkeys " "
WScript.Sleep 60
WshShell.SendKeys "w"
WScript.Sleep 140
WshShell.SendKeys "e"
WScript.Sleep 170
WshShell.SendKeys " "
WScript.Sleep 150
WshShell.SendKeys "w"
WScript.Sleep 180
WshShell.SendKeys "i"
WScript.Sleep 166
WshShell.SendKeys "l"
WScript.Sleep 185
WshShell.SendKeys "l"
WScript.Sleep 137
WshShell.SendKeys " "
WScript.Sleep 90
WshShell.SendKeys "l"
WScript.Sleep 110
WshShell.SendKeys "e"
WScript.Sleep 230
WshShell.SendKeys "a"
WScript.Sleep 30
WshShell.SendKeys "r"
WScript.Sleep 222
WshShell.SendKeys "n"
WScript.Sleep 33
WshShell.SendKeys " "
WScript.Sleep 152
WshShell.SendKeys "h"
WScript.Sleep 130
WshShell.SendKeys "o"
WScript.Sleep 49
WshShell.SendKeys "w"
WScript.Sleep 99
WshShell.SendKeys " "
WScript.Sleep 105
WshShell.SendKeys "t"
WScript.Sleep 145
WshShell.SendKeys "o"
WScript.Sleep 89
WshShell.SendKeys " "
WScript.Sleep 135
WshShell.SendKeys "d"
WScript.Sleep 122
WshShell.SendKeys "o"
WScript.Sleep 74
WshShell.SendKeys " "
WScript.Sleep 131
WshShell.SendKeys "m"
WScript.Sleep 101
WshShell.SendKeys "a"
WScript.Sleep 45
WshShell.SendKeys "g"
WScript.Sleep 64
WshShell.SendKeys "i"
WScript.Sleep 66
WshShell.SendKeys "c"
WScript.Sleep 35
WshShell.SendKeys " "
WScript.sleep 99
WshShell.SendKeys "t"
WScript.Sleep 350
WshShell.SendKeys "r"
WScript.Sleep 159
WshShell.SendKeys "i"
WScript.Sleep 160
WshShell.SendKeys "c"
WScript.Sleep 150
WshShell.SendKeys "k"
WScript.Sleep 150
WshShell.sendkeys " "
WScript.Sleep 60
WshShell.SendKeys "u"
WScript.Sleep 140
WshShell.SendKeys "s"
WScript.Sleep 170
WshShell.SendKeys "i"
WScript.Sleep 150
WshShell.SendKeys "n"
WScript.Sleep 180
WshShell.SendKeys "g"
WScript.Sleep 166
WshShell.SendKeys " "
WScript.Sleep 185
WshShell.SendKeys "n"
WScript.Sleep 137
WshShell.SendKeys "o"
WScript.Sleep 90
WshShell.SendKeys "t"
WScript.Sleep 110
WshShell.SendKeys "e"
WScript.Sleep 230
WshShell.SendKeys "p"
WScript.Sleep 30
WshShell.SendKeys "a"
WScript.Sleep 222
WshShell.SendKeys "d"
WScript.Sleep 33
WshShell.SendKeys "."
WScript.Sleep 152
WshShell.SendKeys " "
WScript.Sleep 130
WshShell.SendKeys "F"
WScript.Sleep 49
WshShell.SendKeys "i"
WScript.Sleep 55
WshShell.SendKeys "r"
WScript.Sleep 55
WshShell.SendKeys "s"
WScript.Sleep 55
WshShell.SendKeys "t"
WScript.Sleep 55
WshShell.SendKeys ","
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 99
WshShell.SendKeys "C"
WScript.Sleep 105
WshShell.SendKeys "o"
WScript.Sleep 145
WshShell.SendKeys "p"
WScript.Sleep 89
WshShell.SendKeys "y"
WScript.Sleep 135
WshShell.SendKeys " "
WScript.Sleep 122
WshShell.SendKeys "t"
WScript.Sleep 74
WshShell.SendKeys "h"
WScript.Sleep 131
WshShell.SendKeys "i"
WScript.Sleep 101
WshShell.SendKeys "s"
WScript.Sleep 45
WshShell.SendKeys " "
WScript.Sleep 64
WshShell.SendKeys "c"
WScript.Sleep 66
WshShell.SendKeys "o"
WScript.Sleep 35
WshShell.SendKeys "d"
WScript.Sleep 99
WshShell.SendKeys "e"
WScript.Sleep 350
WshShell.SendKeys " "
WScript.Sleep 159
WshShell.SendKeys "i"
WScript.Sleep 160
WshShell.SendKeys "n"
WScript.Sleep 150
WshShell.SendKeys "t"
WScript.Sleep 150
WshShell.sendkeys "o"
WScript.Sleep 60
WshShell.SendKeys " "
WScript.Sleep 140
WshShell.SendKeys "n"
WScript.Sleep 170
WshShell.SendKeys "o"
WScript.Sleep 150
WshShell.SendKeys "t"
WScript.Sleep 180
WshShell.SendKeys "e"
WScript.Sleep 166
WshShell.SendKeys "p"
WScript.Sleep 185
WshShell.SendKeys "a"
WScript.Sleep 137
WshShell.SendKeys "d"
WScript.Sleep 90
WshShell.SendKeys "."
WScript.Sleep 110
WshShell.SendKeys " "
WScript.Sleep 230
WshShell.SendKeys "S"
WScript.Sleep 30
WshShell.SendKeys "e"
WScript.Sleep 55
WshShell.SendKeys "c"
WScript.Sleep 55
WshShell.SendKeys "o"
WScript.Sleep 55
WshShell.SendKeys "n"
WScript.Sleep 55
WshShell.SendKeys "d"
WScript.Sleep 55
WshShell.SendKeys ","
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 222
WshShell.SendKeys "s"
WScript.Sleep 33
WshShell.SendKeys "a"
WScript.Sleep 152
WshShell.SendKeys "v"
WScript.Sleep 130
WshShell.SendKeys "e"
WScript.Sleep 49
WshShell.SendKeys " "
WScript.Sleep 99
WshShell.SendKeys "i"
WScript.Sleep 105
WshShell.SendKeys "t"
WScript.Sleep 145
WshShell.SendKeys " "
WScript.Sleep 89
WshShell.SendKeys "a"
WScript.Sleep 135
WshShell.SendKeys "s"
WScript.Sleep 122
WshShell.SendKeys " "
WScript.Sleep 101
WshShell.SendKeys "m"
WScript.Sleep 45
WshShell.SendKeys "a"
WScript.Sleep 64
WshShell.SendKeys "g"
WScript.Sleep 66
WshShell.SendKeys "i"
WScript.Sleep 35
WshShell.SendKeys "c"
WScript.Sleep 99
WshShell.SendKeys " "
WScript.Sleep 350
WshShell.SendKeys "t"
WScript.Sleep 159
WshShell.SendKeys "r"
WScript.Sleep 160
WshShell.SendKeys "i"
WScript.Sleep 150
WshShell.SendKeys "c"
WScript.Sleep 150
WshShell.sendkeys "k"
WScript.Sleep 60
WshShell.SendKeys "."
WScript.Sleep 140
WshShell.SendKeys "v"
WScript.Sleep 170
WshShell.SendKeys "b"
WScript.Sleep 150
WshShell.SendKeys "s"
WScript.Sleep 180
WshShell.SendKeys "."
WScript.Sleep 55
WshShell.SendKeys "."
WScript.Sleep 90
WshShell.SendKeys "."
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "T"
WScript.Sleep 110
WshShell.SendKeys "h"
WScript.Sleep 230
WshShell.SendKeys "a"
WScript.Sleep 30
WshShell.SendKeys "t"
WScript.Sleep 222
WshShell.SendKeys "s"
WScript.Sleep 33
WshShell.SendKeys " "
WScript.Sleep 152
WshShell.SendKeys "a"
WScript.Sleep 130
WshShell.SendKeys "l"
WScript.Sleep 49
WshShell.SendKeys "l"
WScript.Sleep 99
WshShell.SendKeys "."
WScript.Sleep 105
WshShell.SendKeys " "
WScript.Sleep 145
WshShell.SendKeys "G"
WScript.Sleep 89
WshShell.SendKeys "o"
WScript.Sleep 135
WshShell.SendKeys "o"
WScript.Sleep 122
WshShell.SendKeys "d"
WScript.Sleep 74
WshShell.SendKeys " "
WScript.Sleep 131
WshShell.SendKeys "L"
WScript.Sleep 101
WshShell.SendKeys "u"
WScript.Sleep 45
WshShell.SendKeys "c"
WScript.Sleep 64
WshShell.SendKeys "k"
WScript.Sleep 66
WshShell.SendKeys "!"
WScript.Sleep 35
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55 
WshShell.SendKeys "T"
WScript.Sleep 55
WshShell.SendKeys "r"
WScript.Sleep 55
WshShell.SendKeys "y"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "o"
WScript.Sleep 55
WshShell.SendKeys "p"
WScript.Sleep 55
WshShell.SendKeys "e"
WScript.Sleep 55
WshShell.SendKeys "n"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "M"
WScript.Sleep 55
WshShell.SendKeys "S"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "W"
WScript.Sleep 55
WshShell.SendKeys "o"
WScript.Sleep 55
WshShell.SendKeys "r"
WScript.Sleep 55
WshShell.SendKeys "d"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "t"
WScript.Sleep 55
WshShell.SendKeys "h"
WScript.Sleep 55
WshShell.SendKeys "e"
WScript.Sleep 55
WshShell.SendKeys "n"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "c"
WScript.Sleep 55
WshShell.SendKeys "l"
WScript.Sleep 55
WshShell.SendKeys "i"
WScript.Sleep 55
WshShell.SendKeys "c"
WScript.Sleep 55
WshShell.SendKeys "k"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "the"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "magic"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "trick"
WScript.Sleep 55
WshShell.SendKeys ".vbs"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "extension"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "Enjoy!!!"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "Created"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 55
WshShell.SendKeys "By"
WScript.Sleep 55
WshShell.SendKeys " "
WScript.Sleep 9999
WshShell.SendKeys "AdminX"
WScript.Sleep 55

3) Save it as magic trick.vbs
4) Click the magic trick.vbs extension 
5) See the Magic Begin at your MS Word....


Enjoy!!!

Thanks and Good Luck
^_^

Created By : at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)