HARUT PETROSYAN

Գլխավոր էջ | Գրանցում | Մուտք
ՈՒրբաթ, 18.07.2025, 12:33
Ողջույն Հյուր | RSS
Կայքի մենյու
Մեր հարցումը
Գնահատեք իմ կայքը
Պատասխանների ընդհանուր քանակը: 1181
Վիճակագրություն

Ընդամենը ակտիվ. 2
Հյուրեր. 2
Անդամներ. 0
Գլխավոր էջ » 2013 » Մայիս » 26 » Հետաքրքիր հնարք: Բացվող CD-ROM
09:55
Հետաքրքիր հնարք: Բացվող 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 պրոցեսը:

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

Դիտումներ: 386 | Ավելացրեց: Harut | - Վարկանիշ -: 0.0/0
Մեկնաբանություններն ընդամենը՝: 0
Անուն *:
Email *:
Կոդ *:
Մուտքի ձև
Որոնել
Օրացույց
«  Մայիս 2013  »
Երկ Երք Չոր Հնգ Ուրբ Շաբ Կիր
  12345
6789101112
13141516171819
20212223242526
2728293031
Գրառումների պահոց
Կայքի գործընկերները

Copyright MyCorp © 2025 | Անվճար հոսթինգ uCoz