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
