Երկուշաբթի, 21.07.2025, 07:49
Գլխավոր էջ
Գրանցում
Մուտք
JORA AHARONYANS'BLOG
Ողջույն Հյուր | RSS
Կայքի մենյու
Մեր հարցումը
Գնահատեք իմ կայքը
Պատասխանների ընդհանուր քանակը: 98
ԺԱՄ
Գլխավոր էջ » 2013 » Մայիս » 10 » Հետաքրքիր հնարք: Բացվող CD-ROM
20:38
Հետաքրքիր հնարք: Բացվող 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 պրոցեսը:
Դիտումներ: 865 | Ավելացրեց: Joro | - Վարկանիշ -: 0.0/0
Մեկնաբանություններն ընդամենը՝: 0
Անուն *:
Email *:
Կոդ *:
Կայքի գործնկեր
Որոնել
Ամսաթիվ
«  Մայիս 2013  »
Երկ Երք Չոր Հնգ Ուրբ Շաբ Կիր
  12345
6789101112
13141516171819
20212223242526
2728293031
Վիճակագրություն

Ընդամենը ակտիվ. 1
Հյուրեր. 1
Անդամներ. 0
Video
Տարածել կայքը

| Copyright MyCorp © 2025 | |