Notepad Tricks

• Hack keyboard to make it type anything

code

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop

save it anyname.vbs

• Hit Backspace Key

code
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save it anyname.vbs

• Hit Enter Key

code

Set wshShell = wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "~(enter)"

loop

save it anyname.vbs

• How to create a error message and shut down friends computer

code

@echo off

msg * I don't like you
shutdown -c "Error! You are too stupid!" -s

save it anyname.vbs

• Pop out CD or DVD Drive

code

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

wscript.sleep 5000

loop

save it anyname.vbs