La encantada CD ROM (4 / 4 paso)

Paso 4: El Script!

Asegúrese de que usted guarde el script como cualquier.vbs o bien no funcionará correctamente.

Opción explícita
Dim theRandom
Dim cuenta
' Aleatoriamente un número y luego convertirlo en minutos
mientras que (cuenta < 3)
theRandom = RandomValue()
Pausa (theRandom * 60)
OpenCDRom
cuenta = cuenta + 1
WEND

' Si desea cambiar el tiempo de la secuencia de comandos, el ubound es la mayor cantidad de tiempo de espera y el lbound es el más bajo.
' Cada número se cambiará en minutos, así que asegúrese de no convertir los cambios o de lo contrario, podría estar esperando un tiempo
Función RandomValue()
Dim theRandom
ubound DIM
lbound DIM
UBound = 99
LBound = 20

Aleatorizar

' RandomNumber = Int ((lowerBound - upperBound + 1) * Rnd + upperBound)
theRandom = Int ((ubound - lbound + 1) * Rnd + lbound)
RandomValue = theRandom
End Function

' Esto es donde la magia sucede, carga de los objetos de la cd y apertura de todas las unidades de cd
Sub OpenCDRom
oWMP DIM
colCDROMs DIM
Dim i
Set oWMP = CreateObject("WMPlayer.ocx.7")
Set colCDROMs = oWMP.cdromCollection

Si colCDROMs.Count > = 1 entonces
para i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). De expulsión
Siguiente
End If

' Una leve pausa para conseguir el look "Huh?" fuera de ellos
Pausa (2)

Si colCDROMs.Count > = 1 entonces
para i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i). De expulsión
Siguiente
End If
Set colCDROMs = nada
End Sub

Público Sub Pause(duration)
Corriente débil
Actual = Timer
Hasta contador de tiempo - corriente > = duración
' DoEvents
Lazo
Final Sub