PDA

View Full Version : stumbled cross this, thought you might like it.

J E P P O
06-23-2003, 10:40 PM
this opens all ur disk drives...

<SCRIPT LANGUAGE="VBScript">
<!--

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

-->
</SCRIPT>

and this 1 keeps em open till u leave the page

<SCRIPT LANGUAGE="VBScript">
<!--
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
-->
</SCRIPT>

enjoy guys and gals!
zangerbanger
06-23-2003, 10:57 PM
Oooh... those might come in handy sometime... Thanks for the scripts jeppo :) !
pixiegrrl
06-24-2003, 12:20 AM
cool
SSPrincess
06-24-2003, 01:00 AM
What's a disk drive?....I know, I know...I'm stupid :stickout:
elfenheroin
06-24-2003, 04:35 AM
What does the code do? :confused:
Jasper
06-24-2003, 05:19 AM
it opens your diskdrive, thatnk you i've been looking for this so long.
J E P P O
06-24-2003, 06:37 AM
a disk drive is like where you put your CDs etc. And it pops this out.
J E P P O
06-24-2003, 07:22 AM
im soooooooooooooooo soz about the double post but i found somein else:

SHUTDOWN YOUR COMPUTER...umm well bring up the dialog box!

<html>
<head>
<SCRIPT LANGUAGE="VBScript">
</SCRIPT>
</head>
<body>
<button onclick='CreateObject("Shell.Application").ShutdownWindows'>Shutdown</button>
</body>
</html>
hehe
elfenheroin
06-24-2003, 07:49 AM
That Shutdown thingy would be very annoying and the disk drive thingy would startle the person. I saw a greeting like the diskdrive thing. It says a free cup holder so I tried and the diskdrive opened. :lol:
J E P P O
06-24-2003, 08:17 AM
the shutdown thing is actually a button you put on your page:)
camogirl3000
07-08-2003, 01:32 AM
do you have any more amusing codes? :D