Страница 1 из 11
DRedd Mc | Official Forum » Обо Всём » Интересное » Скрипты VBS: Пакость другу
Скрипты VBS: Пакость другу
DReddДата: Пятница, 09 Окт 2009, 01:13 | Сообщение # 1
Almaty Legion
Сообщений: 947
Репутация: 37
Статус: 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
Сообщений: 947
Репутация: 37
Статус: 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
Поиск:
Статистика Форума
Последнии темы Читаемые темы Лучшии пользователи Новые пользователи
  • МС Молодой умер от ос... (11)
  • Как увеличить посещае... (1)
  • DRedd - Я Из KZ [+2 B... (3)
  • EP, ICE Unface (1)
  • OFFS1de, DRedd, GMS -... (8)
  • V/A - Got Instrumenta... (1)
  • Пропали кнопки "... (1)
  • Заливаем текст тексту... (3)
  • DRedd - Как Ты Жил (F... (1)
  • Sasha Ate - Music Fro... (1)
  • GMS & DRedd - Я вырос... (6)
  • Новое объединение Mel... (1)
  • DRedd - Я Против! / I... (1)
  • D`mc16 - я там и ... (1)
  • 8. X-Hop (Экс хоп) (1)
  • Обсуждение 1-ого раун... (4972)
  • Обсуждение 2-ого раун... (1486)
  • "Игра" Ассо... (1105)
  • Ссылки на трэки 1-ого... (862)
  • "Игра" Счит... (819)
  • "Игра" Ассо... (500)
  • "Игра" Счит... (464)
  • Обсуждение 2-ого раун... (434)
  • Общение/Флуд (281)
  • Общение/Флуд (235)
  • Ссылки на трэки 2-ого... (224)
  • Обсуждение 3-ого раун... (182)
  • Я в контакте (176)
  • Текствой баттл! (120)
  • Обсуждение 4-ого раун... (98)
  • SAINT
  • DRedd
  • Джонник
  • Shark
  • Ss
  • Ray
  • RECv1em
  • ♀RamireZ♀
  • GreSpo
  • Don_Rayzer
  • Snok
  • G-RABBIT
  • Minion
  • ST-G_UnMask
  • Витка
  • jabalokez
  • CasinoXSax
  • Duglasebiabibe
  • Hardcore
  • Snaketecha
  • AngelinajoliDit
  • AndneyKr
  • ElenKASani
  • Lesterfus
  • HemSSiR
  • LeonardLO
  • YuriyNot
  • Nikelcib
  • JeromeWar
  • Ritatow
  • DReddMc.Ru - уникальный шанс скачать и прослушать новинки Mp3 музыки исполнителя, без регистрации! Качайте на DReddMc.Ru русский рэп из Казахстана, а также другие Мп3 песни!
    Sitemap | Sitemap-forum