CD Drive Prank (2 / 9 steg)
Steg 2: Skriv in koden
Dim myDateString
Dim thing1
thing1 = 0
myDateString = Date()
Om myDateString < "02/04/10" sedan
thing1 = 1
slut om
om thing1 = 1 då
Om myDateString > "31/04/10" sedan
thing1 = 2
slut om
slut om
om thing1 = 2 då
göra
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 "cdrom
Slut om
loop
Annat
WScript.quit 1
Slut om
Nu ska jag förklara det:
Dim myDateString
Dim thing1
Detta ställer två variabler som vi kan använda senare i koden.
thing1 = 0
myDateString = Date()
Detta anger variabler. thing1 är ett numeriskt värde, men myDateString innehåller datumet som det körs.
Om myDateString < "02/04/10" sedan
thing1 = 1
slut om
om thing1 = 1 då
Om myDateString > "31/04/10" sedan
thing1 = 2
Detta identifierar om det är April Fool's eller inte, och sedan sätter thing1 därmed.
om thing1 = 2 då
göra
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 "cdrom
Slut om
loop
Detta gör faktiskt öppna och stänga. Det ringer upp en windows media player fungerar att öppna enheten och sedan upprepar det.
Annat
WScript.quit 1
Detta är köra om det inte är April Fool's, och stänger filen.