Логин:

Пароль:

Меню сайта
Наш опрос
Заливать ли новые серии "реальных пацанов" ?
Всего ответов: 49
Облако тегов
Статистика
[ Новые сообщения--> · Участники--> · Правила форума--> ·
  • Страница 1 из 1
  • 1
Форум » Все для сайтов » Разное » Прикол над сCd rom!! (Голодный Cd rom!)
Прикол над сCd rom!!
rpubo4er[LSD]Дата: Суббота, 27.11.2010, 02:00 | Сообщение # 1
Клан
Группа: Администраторы
Сообщений: 16
Награды: 10
Репутация: 2
Статус: Offline
Приколка над дисководом если запустить ее то дисковод будет открыватся в течении 5 минут... После чего это все закончится
Можете все сами настроить или просто скачать...
Вот скрипт: (ПОЖАЛУЙСТА НИЧЕГО НЕ МЕНЯЙТЕ!ИНАЧЕ ОН ВООБЩЕ НИКОГДА НЕ ПРЕКРАТИТ ОТКРЫВАТЬСЯ И ЗАКРЫВАТЬСЯ)

Создаете блакнот на рабочем столе и вставляете данный нижи скрипт.
Сохраняете изменения и меняете формат файла...Вместо txt ставите vbs

Code
MsgBox "Привет by  rpubo4er[LSD] .Спасибо что включил меня. Ближайшие 5 минут ты будешь меня ненавидеть 100% ПОСИТИ НАШ САЙТ 200sidov.ru  там много таких приколок=)"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For i = 0 To mechaniky.Count - 1  
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Ite m(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mec haniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i). Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechanik y.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject  
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Ite m(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mec haniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i). Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechanik y.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject  
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Ite m(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mec haniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i). Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechanik y.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject  
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject

Next
End If
Прикрепления: _-_.vbs(2.4 Kb)


ОМГ...Вступайте в клан...Информация на форуме.

Сообщение отредактировал rpubo4er[LSD] - Суббота, 27.11.2010, 02:01
 
Форум » Все для сайтов » Разное » Прикол над сCd rom!! (Голодный Cd rom!)
  • Страница 1 из 1
  • 1
Поиск:

200sidov.ru © 2018 Хостинг от uCoz
Файлы для обмена предоставлены пользователями сайта. Администрация не несёт ответственности за их содержание.На сервере хранятся только торрент-файлы. Это значит, что мы не храним никаких нелегальных материалов, а так же материалов охраняемых авторским правом.