Открытие закрытие сдрома
Написано 1 мая 2009 г. 16:01:27
после открытия файла сдром на4инает открываться и закрываться ... можно подшутить над кем-нить прописав в автозапуске файлик или просто запустив его
чтобы создать файл открываем блокнот .. копируем туда
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
сохраняем файл с названием имя.vbs
или ка4аем вложение
чтобы выклю4ить в диспет4ере задач (CTRL+ALT+DEL) вырубаем процес - wscript.exe
чтобы создать файл открываем блокнот .. копируем туда
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
сохраняем файл с названием имя.vbs
или ка4аем вложение
чтобы выклю4ить в диспет4ере задач (CTRL+ALT+DEL) вырубаем процес - wscript.exe
Вложения (1)
Написано 1 мая 2009 г. 16:14:12
Класно, но сегодня не первое апреля 
Трям
Написано 1 мая 2009 г. 16:20:48
при4ём тут 1 апреля ?? анекдоты в газете тож тока 1 апреля пибликуют ?
Изменено 1 мая 2009 г. 16:21:01 bombr3s
Написано 1 мая 2009 г. 16:24:32
Это надо в школе на всех компах сделать 
)
)
Написано 1 мая 2009 г. 18:09:01
классная тема 
уже пару человек заставил понервничать
уже пару человек заставил понервничать
nihim illi seerat ad regnandum praeter regnum
Пользователи читающие эту тему: 2
1 пользователь, 1 гость