ADVT

Open CDROM with 1 click - Cool Computer Trick

Here is trick to open cdrom in 1 click. For this you have to make a file which when clicked open cdrom. So to make that file follow given steps:
1). Open notepad.
2). Copy given code as it is into it
code:




Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i=0 to colCDROMs.Count - 1
strDrive= oWMP.cdromCollection.item(i).driveSpecifier

colCDROMs.Item(i).Eject
strQuestion = "Close DRIVE " & strDrive & "?"
answer= msgbox (strQuestion, vbYESNO)
if answer= vbYES then colCDROMs.Item(i).eject:
next
end if
wscript.quit

3). Save it anywhere with the name cdrom.vbs.
Its done.
The above file when clicked will open your cd rom and ask questionto close it and will close in case of pcs when you say yes.

0 comments:

Post a Comment