Disk Drive Trick - 18 August 2011

Main » 2011 » August » 18 » Disk Drive Trick

8:52 PM Disk Drive Trick
What Does This Do? You can implement this into anything really, or just send it to a friend for fun. Open The Drive 1. Open notepad 2. Type: `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` 3. Save as: anything.vbs Now once you click it, the disk drive will open. Close The Drive 1. Open notepad 2. Type: `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 colCDROMs.Item(i).Eject Next ' cdrom End If` 3. Save as: anything.vbs When you click this, the disk drive will close.
1 2 3 4 5 Category: Amazing Tricks \| Views: 749 \| Added by: 3x3r00t \| Rating: 0.0/0