Your Ad Here
Showing posts with label Virus. Show all posts
Showing posts with label Virus. Show all posts

Saturday, April 11, 2009

The best ever Prank

Try this fake Prank, It just alerts the user/victim/friend


Code
@echo off
title VIRUS
color 06

echo YOU HAVE A VIRUS ON YOUR COMPUTER
pause
echo CONTACTING ANTI-VIRUS....
pause
echo DO YOU WANT TO DELETE VIRUS?
pause
echo ACCESS DENIED
echo ACCESS DENIED
echo ACCESS DENIED
pause
echo ACTIVATING VIRUS.....
echo VIRUS ACTIVATED!!!!
pause
:1
dir/s
goto 1


Save it as "Anything.BAT" and send it.

Friday, April 10, 2009

Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out

Open Notepad, slowly type "Hello, how are you? I am good thanks" and freak your friend out:
Type :

Code:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s!
"


Save it as "Anything.VBS" and send it.

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

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

Code:
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s



Save it as "Anything.BAT" in All Files and send it.

PoP Ups

Continuous pop out your friend's CD Drive. If he / she has more than one, it pops out all of them!
Type :

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 as "Anything.VBS" and send it.