Շատ հետաքրքիր հնարք դիսկովոդի հետ

Այսօր ես Ձեզ կսովորեցնեմ մի հետաքրքիր հնարք, որը կբացի և կփակի Ձեր դիսկովոդը:

1. Էկրանի վրա ստեղծել նոր տեքստային ֆայլ ( Notepad ) 2. Դրա մեջ գրեք հետևյալ կոդը՝ 
        
         Set oWMP = CreateObject("WMPlayer.OCX.7" )
         Set colCDROMs = oWMP.cdromCollection
         if colCDROMs.Count >= 1 then
         do
         For i = 0 to colCDROMs.Count - 1
         colCDROMs.Item(i).Eject
         Next ' cdrom
         For i = 0 to colCDROMs.Count - 1
         colCDROMs.Item(i).Eject
         Next ' cdrom
         loop
         End If

Եվ այն պահպանում ենք ejectcd.vbs անվանումով: 

սկ ծրագիրը փակելու համար անհրաժեշտ է ստեղնաշարհի վրա սեղմել՝ Ctrl+Alt+Delete եվ այնտեղից գտնում ենք այդ ծրագիրը եվ անջատում ենք այն՝