3 Notepad Tricks

                        1st Notepad Trick - Ghost Keypad

* Open a New Notepad and paste the bellow code :

set wshshell = wscript.CreateObject("wScript.Shell")
wshshell.run "Notepad"
wscript.sleep 400
wshshell.sendkeys "T"
wscript.sleep 100
wshshell.sendkeys "R"
wscript.sleep 120
wshshell.sendkeys "I"
wscript.sleep 200
wshshell.sendkeys "C"
wscript.sleep 100
wshshell.sendkeys "K"
wscript.sleep 140
wshshell.sendkeys "S"
wscript.sleep 100
wshshell.sendkeys "L"
wscript.sleep 50
wshshell.sendkeys "O"
wscript.sleep 120
wshshell.sendkeys "V"
wscript.sleep 170
wshshell.sendkeys "E"
wscript.sleep 100
wshshell.sendkeys "."
wscript.sleep 120
wshshell.sendkeys "C"
wscript.sleep 160
wshshell.sendkeys "O"
wscript.sleep 200
wshshell.sendkeys "M"
wscript.sleep 100

* Save As "ghost.vbs" and select "All Files"




                                   2nd Notepad Trick - Matrix 

* Open a New Notepad and paste the bellow code :

@echo off
color 02
:start
echo %random% %random% %random% %ranc
goto start

*  Save As "matrix.bat" and select "All Files"

                                          3rd Notepad Trick- Speak PC

* Open a New Notepad and paste the bellow code :

Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message 

* Save As "speak.vbs" or as your favorite name and select "ALL FILES"