VBS help

[foxcat95]

hallo ik ben de laatste tijd aan het klooien met vbs ik had laatst een script gevonden
die je cdromspeler opent vond ik wel lol dus ging er mee verder....
had er een w8woord op gezet en zo maar nu...:

strPtn = InputBox("What is the (4 numbered) pincode ?")

If (strptn) = 1995 Then: X = msgbox ("click yes to start or click no to cancel", 4, "lol ") 


do
If (strPtn) <>1995 Then: strPtn = InputBox("Wrong answer try again")
loop

WScript.sleep 60000

do
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
loop

er is een probleem

nadat je het goede w8woord hebt ingevuld start hij het window met: click yes to start or click no to cancel nu wil ik het zo hebben dat als je op yes klikt dat hij de cdspeler opent en dan weer dicht maakt en zo verder gaat zoals je in mijn scriptje ziet maar nadat ik op yes heb geklikt start die niet ook niet na de 60 sec

 

[ErikBooy007]

Zo doet ie wel wat, hoewel ik me afvraag of dit de bedoeling is:

strPtn = InputBox("What is the (4 numbered) pincode ?")

If (strptn) = "1995" Then
	X = msgbox ("click yes to start or click no to cancel", 4, "lol ") 
Else
 	Do
		strPtn = InputBox("Wrong answer try again")
	Loop while strPtn <> "1995" 
End If	

if

do
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
loop

 

[foxcat95]

ty