This is a simple harmless computer joke to pull on a friend that will continuously eject all their disk drives, thus causing large waves of annoyance! And only in four steps!
Step 1: Create a Text Document
Create a text document. Any file, but with just text. No changing fonts or anything. Name it whatever you want.
Step 2: Put in Some Code
Paste in this text, like in the picture:
Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 5000loop
Step 3: Save It
Click 'Save as' and save it as Joke.vbs or Prank.vbs or whatever you want, just have '.vbs' at the end.
Step 4: Mua Ha Ha!
Now, once it's saved and you see a file that looks like the one in the picture, delete the old text document. Now, pop it in an email and send it to a friend telling to open it. Now their CD drives will open and if they try to close them, they'll keep opening!
If you use it yourself, to stop it just delete the file. Then close your drives. (Make sure you tell your victim this or they'll hate you for it!)