Great NotePad Tricks

by Manoj 2012-07-03 12:54:20

Most of you must be aware about a tool called notepad. It is a simple text based editor. But today I am going to discuss some cool tricks which you can perform on your computer using notepad. You can also use these tricks to scare your friends.

Cycle a message in your friends computer

Type :

@ECHO off
:Begin
msg * Hi
msg * Are you having fun?
msg * I am!
msg * Lets have fun together!
msg * Because you have been o-w-n-e-d
GOTO BEGIN

Save it as pc.bat

Make Keyboard Keys Type Continuously:

Type :

MsgBox stop me..! if you can
Set wshShell =wscript.CreateObject(WScript.Shell)
do
wscript.sleep 100
wshshell.sendkeys {bs}
loop

Save it as pc.vbs

Convey your friend a message and shut down his/ her computer

Type :

@echo off
msg * I dont like you
shutdown -c Hahahah You are Doomed -s

Save it as pc.bat.

Toggle your friends Caps Lock button simultaneously
Type :

Set wshShell =wscript.CreateObject(WScript.Shell)
do
wscript.sleep 100
wshshell.sendkeys {CAPSLOCK}
loop

Save it as pc.vbs


Frustrate your friend by making their keyboard hit Enter simultaneously whenever they press a key :


Type :

Set wshShell = wscript.CreateObject(WScript.Shell)
do
wscript.sleep 100
wshshell.sendkeys ~(enter)
loop

Save it as pc.vbs

Hack your friends keyboard and make him type You are a fool simultaneously:
Type :

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

Save it as pc.vbs

Frustrate your friend by making their keyboard hit Backspace simultaneously whenever they press a key :

Type :

MsgBox Lets rock and roll
Set wshShell =wscript.CreateObject(WScript.Shell)
do
wscript.sleep 100
wshshell.sendkeys {bs}
loop

Save it as pc.vbs

Open Notepad continuously in your friends computer:
Type :

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

Save it as pc.bat

Continuously pop out your friends CD or DVD Drive.
Type :

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 as pc.vbs

Tagged in:

643
like
0
dislike
0
mail
flag

You must LOGIN to add comments