Страница 1 из 11
DRedd Mc | Official Forum » Обо Всём » Интересное » Скрипты VBS: Пакость другу
Скрипты VBS: Пакость другу
DReddДата: Пятница, 09 Окт 2009, 01:13 | Сообщение # 1
Almaty Legion
Сообщений: 951
Репутация: 36
Статус: Offline
Награды
За создание сайта За 500 Сообщений
Напишите данный скрипт для VBS кода. Он открывает CD-rom прописанное число раз, отменить сложно, если не знать как.

С помощью блокнота сохраняем текст в файл, затем меняем его расширение с txt на vbs. Готово! =)
Утка открывающая CD-ROM. Пользователь закрывает CD-ROM, он опять открывается: ag

Code
MsgBox "ХА-ХА-ХА, ты будешь злится на меня-100%. и не забудь сказать мне спасибо!"
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
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
m  echaniky.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
mechan  iky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eje  ct
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.I  tem(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
m  echaniky.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
mechan  iky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eje  ct
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.I  tem(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
m  echaniky.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
mechan  iky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eje  ct
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.I  tem(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
m  echaniky.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
mechan  iky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eje  ct
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.I  tem(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
m  echaniky.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
mechan  iky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eje  ct
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.I  tem(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
m  echaniky.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
mechan  iky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eje  ct
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.I  tem(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
m  echaniky.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
mechan  iky.Item(i).Eject

Next
End If

Если не получается Сделать то скачать Готовый [Скачать]

www.DReddMc.ru Заботится о Своих Пользователях.

 
Белый_d2Дата: Среда, 24 Мар 2010, 00:13 | Сообщение # 2
Провереный
Сообщений: 74
Репутация: 2
Статус: Offline
Награды
А как отключить?
А вы знаете на сколько это тяжко,
Изливать чувства только на бумажки?
 
DReddДата: Среда, 31 Мар 2010, 08:50 | Сообщение # 3
Almaty Legion
Сообщений: 951
Репутация: 36
Статус: Offline
Награды
За создание сайта За 500 Сообщений
Белый_d2, ag хз
www.DReddMc.ru Заботится о Своих Пользователях.

 
Белый_d2Дата: Среда, 31 Мар 2010, 12:30 | Сообщение # 4
Провереный
Сообщений: 74
Репутация: 2
Статус: Offline
Награды
Я нашёл как ab , нужно закрыть процесс "wscript.exe" вроде он так назывался. cr
А вы знаете на сколько это тяжко,
Изливать чувства только на бумажки?
 
DRedd Mc | Official Forum » Обо Всём » Интересное » Скрипты VBS: Пакость другу
Страница 1 из 11
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшии пользователи Новые пользователи
  • І.Б.Т.А.Ч, Toba Borke... (0)
  • Цифровые стихи (3)
  • Свіжа робота від гурт... (0)
  • Пропали кнопки "... (0)
  • "Игра" Ассо... (5)
  • Заявки на участие (6)
  • "Игра" Счит... (2)
  • Я в контакте (2)
  • Общение/Флуд (2)
  • Вопрос/Ответ (0)
  • Обсуждение батла (0)
  • Помощь в пиаре! Помог... (0)
  • DRedd - Dead End (12)
  • П.В - Я из ПВЛ (Стрел... (0)
  • П.В - Стрельба [prod.... (0)
    		•
  • Обсуждение 1-ого раун... (5003)
  • Обсуждение 2-ого раун... (1501)
  • "Игра" Ассо... (1106)
  • Ссылки на трэки 1-ого... (872)
  • "Игра" Счит... (822)
  • "Игра" Ассо... (500)
  • "Игра" Счит... (464)
  • Обсуждение 2-ого раун... (434)
  • Общение/Флуд (281)
  • Общение/Флуд (238)
  • Ссылки на трэки 2-ого... (231)
  • Заявки на участие (187)
  • Обсуждение 3-ого раун... (183)
  • Я в контакте (177)
  • Текствой баттл! (123)
    		•
  • SAINT
  • DRedd
  • Джонник
  • Shark
  • Ss
  • Ray
  • RECv1em
  • ♀RamireZ♀
  • GreSpo
  • Don_Rayzer
  • Snok
  • G-RABBIT
  • Minion
  • ST-G_UnMask
  • Витка
    		•
  • raminazs
  • Dragon
  • maxynewsic
  • DReddGumers
  • kopterka
  • Воин
  • Zhenya
  • Bek
  • пИх-ПаХ_Труп_НаХ:D
  • pav357
  • martiniice
  • VVlad
  • sanyakrsk
  • ivanbuyan
  • LastQuake
    		•

    DRedd Mc DRedd Mc

    DReddMc.Ru - уникальный шанс скачать и прослушать новинки Mp3 музыки исполнителя, без регистрации! Качайте на DReddMc.Ru русский рэп из Казахстана, а также другие Мп3 песни!
    Sitemap | Sitemap-forum