Եթե ցանկանում եք զվարճանալ ձեր ընկերների վրա, ապա կարող եք օգտագործել մի հետաքրքիր հնարք, որի միջոցով համակարգչի օպտիկական սկավառակների սարքը (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 պրոցեսը:
|