4 svar · 627 visningar · startad av hajdo
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>
<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.
Nope det funkar inte
Okej. Det var ju synd.
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>