Stap 4: Het Script!
Nu is het moment dat iedereen op heeft gewacht:Zorg ervoor dat u het script opslaat, zoals welke.vbs of anders het werkt niet goed.
Optie expliciet
Dim Random
Dim graaf
' Een nummer randomize dan zetten in minuten
terwijl (graaf < 3)
Random = RandomValue()
Pauze (Random * 60)
OpenCDRom
count = count + 1
wend
' Als u wijzigen de timing van het script wilt, de ubound is het hoogste bedrag van de wachttijd en de lbound is de laagste.
' Elk nummer zal worden veranderd in minuten, dus zorg ervoor dat u uw wijzigingen niet converteren, of anders je zou kunnen wachten een tijdje
Functie RandomValue()
Dim Random
Dim ubound
Dim lbound
UBound = 99
LBound = 20
Randomize
' RandomNumber = Int ((bovengrens - ondergrens + 1) * Rnd + ondergrens)
Random = Int ((ubound - lbound + 1) * Rnd + lbound)
RandomValue = Random
End Function
' Dit is waar de magie gebeurt, laden van de cd-objecten, en het openen van alle cd-stations
Sub OpenCDRom
Dim oWMP
Dim colCDROMs
Dim i
set oWMP = CreateObject("WMPlayer.ocx.7")
set colCDROMs = oWMP.cdromCollection
Als colCDROMs.Count > = 1 then
voor i = 0 tot colCDROMs.Count - 1
colCDROMs.Item(i). Uitwerpen
Volgende
End If
' Een korte pauze om de blik van de "Huh?" uit hen te krijgen
Pauze (2)
Als colCDROMs.Count > = 1 then
voor i = 0 tot colCDROMs.Count - 1
colCDROMs.Item(i). Uitwerpen
Volgende
End If
set colCDROMs = niets
End Sub
Public Sub Pause(duration)
Dim huidige
Huidige = Timer
Doen tot de Timer - huidige > = duur
' DoEvents
Loop
End Sub
