DIR Return Create A Forum - Home
       ---------------------------------------------------------
       Arti-X Forums
  HTML https://artixsoft.createaforum.com
       ---------------------------------------------------------
       *****************************************************
   DIR Return to: Pranks
       *****************************************************
       #Post#: 17--------------------------------------------------
       Infinate CD-Tray Opening & Closing Tutorial
   DIR By: Artix
       Date: February 8, 2013, 1:35 pm
       ---------------------------------------------------------
       Alright, this is a great prank. This one opens your CD-drive
       over and over again, until your next shutdown.
       First, open notepad, and enter this code:
       --- Code ---
       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
       --- End Code ---
       Now, save it as open.vbs, and run it!
       EXTRA: I like to disguise this script as the Internet Explorer
       icon, or drag it into the startup folder.
       *****************************************************
       Page 1 of 1