K4rMa Posted June 1, 2009 Share Posted June 1, 2009 A Virus That Will Open And Close Ur Cdrom Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then do For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom loop End If copy this into notepad and save it as anyname.vbs like virus.vbs and then double click on it...what u see....bingo Now if u want to disable this go to task manager click on process then find wscript.exe and end this process WORKS! Quote Link to comment Share on other sites More sharing options...
Morian Posted June 1, 2009 Share Posted June 1, 2009 Yeah karma works fine! Thank you. I want more notepad scripts! Is awesome! :P Quote Link to comment Share on other sites More sharing options...
yol2goldyo Posted June 1, 2009 Share Posted June 1, 2009 OMFG that's working!Ty karma!Please I want more like this!! Quote Link to comment Share on other sites More sharing options...
HazarD. Posted June 1, 2009 Share Posted June 1, 2009 works :P thnx,can post us more scripts?... Quote Link to comment Share on other sites More sharing options...
K4rMa Posted June 1, 2009 Author Share Posted June 1, 2009 works :P thnx,can tell us more?... If i find why n0t ;P Quote Link to comment Share on other sites More sharing options...
yol2goldyo Posted June 1, 2009 Share Posted June 1, 2009 i command you to find!!1 :P Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.