CD Drive Prank (2 / 9 stap)

Stap 2: Type in de code

Dim myDateString
Dim thing1
thing1 = 0
myDateString = Date()
Als myDateString < "02/04/10" dan
thing1 = 1
eind als
Als thing1 = 1 then
Als myDateString > "31/04/10" dan
thing1 = 2
eind als
eind als

Als thing1 = 2 then
doen
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 ' cdrom
End If

lus
Anders
WScript.Quit 1
End If

Ik zal nu uitleggen dat:

Dim myDateString
Dim thing1

Dit stelt twee variabelen die we kunnen gebruiken later in de code.

thing1 = 0
myDateString = Date()

Hiermee stelt u de variabelen. thing1 is een numerieke waarde, maar myDateString bevat de datum waarop het wordt uitgevoerd.

Als myDateString < "02/04/10" dan
thing1 = 1
eind als
Als thing1 = 1 then
Als myDateString > "31/04/10" dan
thing1 = 2

Dit detecteert of het April Fool's of niet is, en vervolgens dienovereenkomstig ingesteld thing1.

Als thing1 = 2 then
doen
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 ' cdrom
End If

lus

Dit doet eigenlijk het openen en sluiten. HET roept een windows media player-functie te openen van het station, dan herhaalt.

Anders
WScript.Quit 1

Dit wordt uitgevoerd als het niet April Fool's, en het bestand sluit.