Den hemsökta CD Rom-enhet (4 / 4 steg)
Steg 4: Skriptet!
Nu nu har alla väntat på:Se till att du sparar skriptet som oavsett.vbs eller annars det inte att fungera korrekt.
Option Explicit
Dim theRandom
Dim antal
"Slumpa ett nummer då vända den in i minuter
medan (greve < 3)
theRandom = RandomValue()
Paus (theRandom * 60)
OpenCDRom
antal = antal + 1
wend
"Om du vill ändra tidpunkten för skriptet, ubound är det högsta beloppet av väntetiden och lbound är den lägsta.
"Varje nummer kommer att ändras i minuter, så se till att du inte konverterar dina ändringar eller annat du kan att vänta ett tag
Funktion RandomValue()
Dim theRandom
Dim ubound
Dim lbound
UBound = 99
LBound = 20
Randomize
' RandomNumber = Int ((övre - upperBound + 1) * Rnd + upperBound)
theRandom = Int ((ubound - lbound + 1) * Rnd + lbound)
RandomValue = theRandom
Slutet funktion
"Det är där magiskt händer, laddar cd objekt och öppnande av alla CD-enheter
Sub OpenCDRom
Dim oWMP
Dim colCDROMs
Dim jag
Ange oWMP = CreateObject("WMPlayer.ocx.7")
Ange colCDROMs = oWMP.cdromCollection
om colCDROMs.Count > = 1 då
för i = 0 till colCDROMs.Count - 1
colCDROMs.Item(i). Mata ut
Nästa
Slut om
"En liten paus att få det"Va?"utseendet av dem.
Paus (2)
om colCDROMs.Count > = 1 då
för i = 0 till colCDROMs.Count - 1
colCDROMs.Item(i). Mata ut
Nästa
Slut om
Ange colCDROMs = ingenting
End Sub
Public Sub Pause(duration)
Dim ström
Nuvarande = Timer
Inte förrän Timer - aktuellt > = varaktighet
"DoEvents
Loop
Avsluta Sub