«
»

Try This Its Really Cool?

Omg isn’t this awsome?
do
Set oWMP = CreateObject(“wMPlayer.OCX.7″ )
Set colCDROMs = owMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If
loop
Ok so if you want to do it all you have to do is open new text document paste it in and Save as: prank.vbs
double click it and your cd rom will open over and over
to get rid of it go to task manager and it will be wscrips.exe close that and there you go enjoy
no question
just to get comments
oh and not to forget dont forget the do and loop important

Tags: , ,

This entry was posted on Friday, October 23rd, 2009 at 5:40 am and is filed under ocx files. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

One Response to “Try This Its Really Cool?”

  1. Whats Up Doc says:
    October 23, 2009 at 5:40 am

    That was great. Thanks

Leave a Reply