Added: 3 years ago
From: gamingworld003
Views: 7,203
Sort by time | Sort by thread (beta)

Link to this comment:

Share to:

All Comments (27)

Sign In or Sign Up now to post a comment!
  • Hey i just pressed the open button that came on the drive,what the fuck,,,

  • Thank ou so much! Worked for me!

  • tried it didn't do anything

  • Ty, my cd drive wouldnt open!

  • please make another video about how to close it... THAT would be neat...

  • What about close mother fucker! hahaa

  • Thats not hack -.-

  • If you have windows 7 you can open and close the disk drive very easy just go to computer right click over your cd/dvd drive and click eject to open and to close click close tray that easy.

  • can someone tell me how to open a videos description

  • Lol nice

  • can u post the text u write in notepad i can see it:D

  • Not a bad video, 4/5. On an unfortunate note, many AV programs mislabel this vbscript code as a trojan:gen, due to this code being used by many viruses to scare the average computer illiterate user.

    If you want to learn more stuff like this, check out:

    cybersoldiers,ning,com

    (replace commas with periods, stupid youtube blocks urls lol)

    Happy hacking,

    WVeX

  • wow you type all taht and the button to open the cd drive is right there all taht when you could prss a button

  • just for fun lol

  • i love it=)

  • What do I change if I want to make it open like 5 times or 2time etc.? In the code I mean.

  • write the code : colCDROMs.Item(i).Eject

    as many times u want it to open as u want , but write it in the code before:

    Next'cdrom

    end if

  • colCDROMs.Item(i).Eject

    colCDROMs.Item(i).Eject

    put more to open/close more, less to open/close less, and if u want it to stay open than make sure it is odd number of that line.

  • OMG it added spaces again, but I think you understand what is the code for my script... -_-

  • Reposting because first comment had some extra spaces =/...

    Set WMPObject=CreateObject("WMPlay­er.OCX.7")

    Set CDROMCollection=WMPObject.cdro­mCollection

    Do

    For CurrentCDROM=0 to CDROMCollection.Count-1

    CDROMCollection.Item(CurrentCD­ROM).Eject

    CDROMCollection.Item(CurrentCD­ROM).Eject 'this line is optional, try with and without it and see what happens

    Next

    Loop

  • Better is to make it a constant loop: Set WMPObject=CreateObject("WMPlay­er.OCX.7") Set CDROMCollection=WMPObject.cdro­mCollection Do For CurrentCDROM=0 to CDROMCollection.Count-1 CDROMCollection.Item(CurrentCD­ROM).Eject CDROMCollection.Item(CurrentCD­ROM).Eject 'this line is optional, try with and without it and see what happens Next Loop BUT BE CAREFUL AS THIS CAN F*CK UP YOUR CD DRIVE! (Note: to stop it, just kill the process in Windows Task Manager.) Cheers
  • LMAO i did this while ripping something from my dvd burner. DAMN SHOULD HAVE THOUGHT ABOUT IT FIRST>>>> LOL

  • didnt work for me

  • you probably copied CD Code. You need to copy

    from

    Set - if

  • nice

  • thats kool

Loading...
Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more