Problem mit VBscript

[Füzi]

Hey leute

ich habe heute ein script geschrieben dass zuerst "OK"-massegeboxen startet, dann die capslock taste ein und ausschaltet (loop), dann noch eine "OK"-massegebox öffnet, dann einen Text über die lautsprecher ausgiebt dann noch "OK"-massegeboxen und dann das CD laufwerk öffnet und wenn man es schließt es sich wieder öffnet

nur hab ich jetzt das problem das im code etwas nicht stimmt

hier der code

MsgBox "Hallo!",0,"Masterfuck 1.0"

MsgBox "Ich bins dein Computer",0,"Masterfuck 1.0"

MsgBox "Wegen dir dreht meine Hardware jetzt total durch",0,"Masterfuck 1.0"

MsgBox "Scheiße! Was ist mit meiner Capslock Taste los?",0,"Masterfuck 1.0"

do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

MsgBox "Meine Soundkarte wird jetzt über meine internen Lautsprecher die ganze Wahrheit über dich ausgeben",0,"Masterfuck 1.0"

StrText=("You are fucking gay")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Rate=-3
ObjVoice.Speak StrText
Set wshShell =wscript.CreateObject("WScript.Shell")

MsgBox "Öffne keine Skripte mehr von Füzi, die tun mir nicht gut -.-",0,"Masterfuck 1.0"

MsgBox "PS: Ich glaub mein Laufwerk läuft gleich Amok!",0,"Masterfuck 1.0"

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

bitte um hilfe

[inout]

Nur mal so btw: Du weißt schon, dass du dir sämtliche Befehle nach der ersten Endlosschleife sparen kannst, da diese nicht mehr ausgeführt werden, oder?

Zu deinem Problem:
Die Zeile

 Set wshShell =wscript.CreateObject("WScript.Shell")

muss weiter nach oben.

[Füzi]

hmm...ja haste recht.. aber gibts nicht irgendwie eine lösung

[inout]

Ja, indem du auch die nachfolgenden Befehle mit in die Schleife nimmst.

[ocz]

nur hab ich jetzt das problem das im code etwas nicht stimmt

Danke für diese ausführliche Fehlerbeschreibung. So können wir dir optimal helfen.

hmm...ja haste recht.. aber gibts nicht irgendwie eine lösung

Eine Lösung wozu? Kannst du dich bitte mal so ausdrücken, dass man dir helfen kann, auch wenn das vielleicht mal mehr als einen Satz/Post erfordert?

Wenn du die Endlosschleife laufen lassen willst, während du den Rest ausführst, wirst du entweder auf eine Programmiersprache wechseln müssen, oder dynamisch ein weiteres vbscript schreiben und starten.

[Füzi]

Danke für diese ausführliche Fehlerbeschreibung. So können wir dir optimal helfen.


Eine Lösung wozu? Kannst du dich bitte mal so ausdrücken, dass man dir helfen kann, auch wenn das vielleicht mal mehr als einen Satz/Post erfordert?

Wenn du die Endlosschleife laufen lassen willst, während du den Rest ausführst, wirst du entweder auf eine Programmiersprache wechseln müssen, oder dynamisch ein weiteres vbscript schreiben und starten.

mein problem war , dass im code etwas nocht gestimmt hatt..hab aber jetzt alles mit in die schleife genommen und jetzt funzts^^...danke trotzdem

Ja, indem du auch die nachfolgenden Befehle mit in die Schleife nimmst.

ich habs jetzt so gemacht

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

set osh = wscript.CreateObject("wscript.Shell")
wscript.sleep 100
osh.sendkeys "{CAPSLOCK}"

set osh = wscript.CreateObject("wscript.Shell")
wscript.sleep 100
osh.sendkeys "{NUMLOCK}"

loop
End If

danke ^^