Subscribe via email

Showing posts with label funny virus pranks. Show all posts
Showing posts with label funny virus pranks. Show all posts

Funny Virus Pranks

By Nitin Adlakha On April 10, 2009 0 comments
Basic Info:
These funny pranks are not really viruses. These are just pranks used to scare people of u. Just send these to ur frnds and see how they panic.

Requirements:- Notepad

Code 1: Give ur frnd a msg that he is a fool and shutdown his/her computer

@echo off

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

Save this code with "anyname.bat" and send it.


Code 2: Frustrate ur frnd by making this Script hitting Enter simultaneously

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

save this code with "anyname.vbs" and send it.


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

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 this code with "anyname.vbs" and send it.


Code 4: . Open Notepad continually in your friend's computer

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

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


Code 5: Continually pop out your friend's CD Drive.

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.
Namecheap.com - Cheap domain name registration, renewal and transfers - Free SSL Certificates - Web Hosting

    Subscribe via email

    Enter your email address:

    Delivered by FeedBurner