Meghökkentő trükkök PC-seknek című írásunk kapcsán több olvasónk is kérdezte: hogyan is működik az a régi vicc, amikor barátaink a „nyertél egy pohártartót – klikkelj ide!” mókás levélben található linkre kattintva, meglepődve veszik észre, hogy kinyílik a CD/DVD-meghajtó, azaz a pohártartó. Mivel az olvasó akarata szent, máris leírjuk ezt a kis trükköt is!

FONTOS! A VB-szkripteket szinte minden vírusirtó rosszindulatúnak érzékeli, többnyire „VBS/CDEject.A” vagy „Joke.EjectCd” néven, de van olyan ami „Trojan.Downloader.JS.SetSlice.B”-nek ismeri fel (mondanunk sem kell, hogy nem az…) Nagyon valószínű, hogy kapunk egy riasztást, amikor futtatni akarjuk majd kis programocskánkat. Megijedni nem kell, mint a forráskódjából is látszik, nem tesz mást, csak kinyitja a CD-meghajtót… De a vírusirtók már csak ilyenek. Aki nem szeret riasztásokat látni, az inkább ne próbálkozzon ezzel a kis poénos szkripttel.

 A meghajtó kinyitása valójában nagyon egyszerű a dolog: csak egy kis VB-szkriptre lesz szükségünk. Egészen pontosan erre:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Set oWMP = Nothing
Set colCDROMs = Nothing

 A legegyszerűbb, ha megnyitjuk a jegyzettömböt (notepad), belemásoljuk a fenti utasításokat, majd elmentjük valami.vbs néven (fontos, hogy a kiterjesztés vbs legyen!).

 Teszteljük le: az elmentett ikonra kattintva, máris kinyílik a meghajtó tálcája! Nincs más dolgunk, mint csatolni a vsb fájlt (és persze egy pohártartó fotót) egy mókás e-mailhez, és készen is van a jó öreg pohártartós vicces-email!