Script Frage für Notepad

[larli93]

Hi ich hab ne frage. Ich habe jetzt ziemlichen spass am programieren und ähnlichem gefunden und schreibe jetzt grade so billige Sachen wie Laufwerk auf-und-zu mit Notepad. Der befehl zum öffnen und schliessen ist ja

Dim oWMP
Dim colCDROMs, i
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
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing

Wie kann man machen das es eine unendliche Schleife wird, also Laufwerk auf, zu, auf, zu, auf, zu ?

LG
Larli93

[Spike]

Indem du eine Abbruchbedingung stellst die niemals eintrifft.
http://de.wikipedia.org/wiki/Endlosschleife

[larli93]

Wo genau muss ich das loop und end loop denn hinschreiben ?
Am Anfang und am Ende geht nicht, dann kommt immer eine Fehlermeldung...

[rainbow six]

Hab keine Ahnung vom Programmieren, aber wenn ich logisch nachdenke wohl um die Zeilen, die angeben, dass das Laufwerk auf und zu geht.

Dabei aber nicht etwa..

Loop
Kommando zum Aufmachen
End Loop
Loop
Kommando zum Zumachen
End Loop

..sondern..

Loop
Kommando zum Aufmachen
Kommando zum Zumachen
End Loop

[larli93]

aha danke Szer0x funktioniert 1a ^^
nur deaktivieren kann ichs leider nicht =(
ich beende zwar den Task, aber das geht trotzdem immer weiter ... =(
Hilfe, die dinger gehen immer auf und zu xDD
auch jetzt atm...
bitte helf mir schnell, hab kb den PC zu resetten xD

LG,
Larli93

[SeniorDingDong]

lol selfowned

Ich würde Dir raten, falls das Problem noch da ist, einfach mal dein altes 1x auf, 1x zu, ende,Programm zu starten - oder den PC rebooten und hoffen, dass es dann weg ist

[SeniorDingDong]

Nagut, meine Programmier-Skills sind eh beim C64 hängen geblieben (und für solche Fälle hatte man damals extra die Taste "Run/Stop" )