Paso 2: Escriba el código de
Dim myDateString
Dim thing1
thing1 = 0
myDateString = Date()
Si myDateString < "04/02/10" entonces
thing1 = 1
terminar si
Si thing1 = 1 then
Si myDateString > "31/04/10" entonces
thing1 = 2
terminar si
terminar si
Si thing1 = 2 entonces
hacer
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 ' CD-ROM
End If
lazo
Otra cosa
Wscript.Quit 1
End If
Ahora voy a explicar:
Dim myDateString
Dim thing1
Esto establece dos variables que podemos utilizar más adelante en el código.
thing1 = 0
myDateString = Date()
Esto establece las variables. thing1 es un valor numérico, pero myDateString contiene la fecha en que se está ejecutando.
Si myDateString < "04/02/10" entonces
thing1 = 1
terminar si
Si thing1 = 1 then
Si myDateString > "31/04/10" entonces
thing1 = 2
Esto detecta si es inocentada o no y después se establece thing1 en consecuencia.
Si thing1 = 2 entonces
hacer
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 ' CD-ROM
End If
lazo
Esto realmente hace la apertura y cierre. SE llama a una función de reproductor de windows media para abrir la unidad, luego repite.
Otra cosa
Wscript.Quit 1
Esto se ejecuta si no es inocentada y cierra el archivo.
