Create a Harmless Funny Virus with Notepad-Continuously eject CD-DVD drives





open notepad write this code and save in .vbs file

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 in .vbs format

1 comments:


Very informative article.Thank you author for posting this kind of article .


http://www.wikitechy.com/view-article/c-program-to-find-frequency-of-characters-in-a-string-with-example-and-explanation



Both are really good,
Cheers,
Venkat

Reply

Post a Comment