Kā izjokot kāda drauga datoru 3!22

Sveiki! Raksts šodien būs kā kārtējo reizi kādu draugu izjokot caur datoru! Šoreiz viņam mistiski atvērsies CD-ROMs. Ja būs daudzi plusi tad likšu vēl! Centieties nemēģināt jo citreiz viņš nepārtrauc darboties!

1. Uztaisam .txt failu!

2. Rakstam iekšā :

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

3. Vēlāk seivojam kā joks.vbs

4. Joks ir gatavs un tu vari izjokot savu draugu!

Ja būs daudz + tad likšu vēl!