bartspagina
Gebruiker
- Lid geworden
- 24 aug 2008
- Berichten
- 119
ik heb een vb script gemaakt:
strTitle = "cd/dvd station"
msgbox "hallo. om de stations te openen moet je de vlogende vraag beantwoorden...",64+4096,strTitle
a=inputbox("Wat voor spel ga je spelen??")
msgbox "oke"
Msgbox"klik op ok om het station voor je cd en/of dvd open te doen. "
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
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
msgbox"klik op ok om het dvd en/of cd station te sluiten"
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
End if
msgbox"klaar voor lancering programma!"
Wscript.Sleep 100000
if msgBox("Wilt u stoppen?", vbYesNo, "vraag") = vbYes then
msgbox "bedankt voor de moeite!"
else
msgbox "ok, ga maar verder!"
end if
hoe zet ik dat om naar javascript??
strTitle = "cd/dvd station"
msgbox "hallo. om de stations te openen moet je de vlogende vraag beantwoorden...",64+4096,strTitle
a=inputbox("Wat voor spel ga je spelen??")
msgbox "oke"
Msgbox"klik op ok om het station voor je cd en/of dvd open te doen. "
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 1 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
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
msgbox"klik op ok om het dvd en/of cd station te sluiten"
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing
End if
msgbox"klaar voor lancering programma!"
Wscript.Sleep 100000
if msgBox("Wilt u stoppen?", vbYesNo, "vraag") = vbYes then
msgbox "bedankt voor de moeite!"
else
msgbox "ok, ga maar verder!"
end if
hoe zet ik dat om naar javascript??