Први април је иза угла, а то значи да би требало да очекујете да ћете се подвалити. Исто тако, требало би да покушате да добијете успешну шалу ове године под условом да је безопасна и да ће некоме изазвати само благу сметњу или малу нелагоду. Што се тиче безазлених канцеларијских шала, увек можете да залепите мало папира на дно оптичког миша, али ако тражите мало амбициозније, али још увек безопасне шале, топло препоручујемо ову шалу са ЦД/ДВД драјвом која је била присутна годинама.
Пре него што вам покажемо како да изведете ову шалу, желели бисмо да вам саветујемо да је изведете на сопствени ризик. Ако мета ове шале одлучи да фрустрирано баци екран преко собе, нећемо бити одговорни.
Да бисте извели ову шалу, морате имати приступ компјутеру друге особе пет минута без сведока. Припремите шалу на свом систему. Отворите Нотепад и налепите следећи текст у њега. Сачувајте датотеку са било којим именом и ВБС екстензијом. Копирајте ову датотеку на помало нејасну локацију на рачунару друге особе и све је готово.
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop
Свака два минута њихов ЦД/ДВД драјв ће се отворити. Ако желите да другој особи буде мало очигледније да се с њом петља, можете укључити искачућу поруку која ће се појавити која ће, када се одбаци, отворити диск. Да бисте то урадили, унесите следеће у први ред;
MsgBox("Happy April Fools' Day!")
Шала се наставља све док друга особа не схвати да је то сценарио. Ако је мета ваше шале неко ко зна за писање сценарија, ово вас неће много насмејати. Највише ћете добити окретање очима, у том случају покушајте са папиром на дну трика са мишем.
На крају, ако одлучите да се шалите са пријатељима на Први април, уверите се да је шала смешна, а не понижавајућа, трауматизирајућа или физички штетна.