Viewing Thread:
"Free cup holder"

Receive your free cup holder here:

http://www.chrisstorer.com/cupholder.htm

So useful!

*Tries It*
*Gets smacked on shin and knee by both CD drives*

"What the fu...?"

*Kicks Computer*
*Wonders where cup holder is*
*Tries again*
*Repeats above process several times*

*Laughs like G. Bush on 2DTV*

Tóm wrote:
> It seems as if there's some sort of check to see how many drives you
> have, so it only opens one. Or maybe it's something completely
> different. Doesn't work though :-)

It looks like it checks for any cdroms ....

'For i = 0 to colCDROMs.Count - 1'

.. counts how many there are on your computer, and opens them, one after the other. Works for me anyway :)

phi11ip wrote:
> Your attempt at worrying me has failed miserably!

... I tried :)

Looking at the code

MsgBox "Click here to recieve a free cup holder",64,"Your free Cup holder"
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

It seems as if there's some sort of check to see how many drives you have, so it only opens one. Or maybe it's something completely different. Doesn't work though :-)

Your attempt at worrying me has failed miserably!

Yeah, I remember the message and all ... still, shame about its authenticity, and that little virus hidden in it.

"As a valued customer we here at Coca-Cola would like to present you with a free beverage holder"

*click*

*ZZZZZZZZZZZZZZZZZ*

"hahahahahhahahahahhahahahahaha!"

I think it opens one...

I'll check...

Yup, only the top one!

... more colourful than this one :)

Does it open both CD Drives rather than just the one?

I've still got that Coca-Cola one...

I opened the cabinet door first before clicking it hough!