Հետաքրքիր հնարք: Բացվող CD-ROM

Եթե ցանկանում եք զվարճանալ ձեր ընկերների վրա, ապա կարող եք օգտագործել մի հետաքրքիր հնարք, որի միջոցով համակարգչի օպտիկական սկավառակների սարքը (CD-ROM) սկսում է անդադար բացվել փակվել:

1. Էկրանի վրա ստեղծել նոր տեքստային ֆայլ:

2. Դրա մեջ գրեք հետևյալ կոդը՝

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

Set colCDROMs = oWMP.cdromCollection

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 5000

loop

3. Պահպանեք ֆայլը *.vbs վերջավորությամբ (օր. a.vbs): Եթե դժվարանում եք ստեղծել ֆայլը, ապա կարող եք ներբեռնելայստեղից:

Ծրագիրը արդեն պատրաստ է: Կարող եք այն տեղադրել ընկերոջ համակարգչի մեջ: Երբ նա բացի այդ ֆայլը, նրա սկավառակների սարքը կսկսի անդադար բացվել փակվել: 

Ուշադրություն.

Ծրագիրը անջատելու համար  անհրաժեշտ է մտնել Task Manager (CTRL+ALT+DEL) և այնտեղից անջատել wscript.exe պրոցեսը:

Հավանեցի՞ր, դե տեղեկացրու ընկերներիդ`