---
title: "\"hacking\""
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/102871-hacking"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "hajdo"
published: "2004-05-04T08:11:58.000Z"
updated: "2004-05-04T13:43:19.000Z"
replies: 4
views: 648
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/102871-hacking"
---

# "hacking"

## #1 — hajdo, 2004-05-04T08:11Z

Hej, har lite kod som får cd:n att öpnass och stängas,,, hur ska jag skriva loopen så att den öpnas och stängs för evigt?

```
 
<html>
<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>

<font color="black" face="fixedsys">:D</font>

</html>
```

Permalänk: https://www.webforum.nu/p/102871

## #2 — OveRRidE, 2004-05-04T10:53Z

```
<html>
<SCRIPT language=VBScript>

while 1 = 1
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
Set oWMP = Nothing
Set colCDROMs = Nothing
End If
wend

</SCRIPT>

<font color="black" face="fixedsys">:D</font>

</html>
```

Nu vet ju inte jag ifall .Eject på en redan 'utkörd' CD fungerar med motsatt verkan (alltså in), men det märker du väl.

Permalänk: https://www.webforum.nu/p/1337820

## #3 — Bosse168, 2004-05-04T11:06Z

Nope det funkar inte

Permalänk: https://www.webforum.nu/p/1337829

## #4 — OveRRidE, 2004-05-04T11:08Z

Okej. Det var ju synd.

Permalänk: https://www.webforum.nu/p/1337832

## #5 — Melitta, 2004-05-04T13:43Z

Förstår inte det roliga men:

```
<SCRIPT language=VBScript>
do while 0 = 0
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

For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
next

End If
loop
</SCRIPT>
```

Permalänk: https://www.webforum.nu/p/1337928

---

Tråden på webben: https://www.webforum.nu/amne/asp/102871-hacking
