Автор Тема: Шутки юмора  (Прочитано 5357 раз)

quaker

  • Прапорщик
  • *
  • Сообщений: 1451
  • Благодарностей: 64
    • E-mail
Шутки юмора
« : 11 Мая 2008, 08:08:49 »
Предлагаю сюда постить исходники небольшие скриптов и программ, с помощью которых можно подшутить над ближним
Для начала вот:
1.создаем файл autorun.inf
2.в нем пишем:
Цитировать
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count>=1 then
For i=0 to colCDROMs.Count-1
colCDROMs.item(i).Eject
Next'cdrom
End if
3.заливаем этот файл на болванку
4.не дожидаясь 1-го апреля, даем учителю информатики, коллеге по работе, другу...
5.наблюдаем
6.учимся быстро бегать  :2funny:
ps
как только диск запустится, скрипт откроет лоток cd-rom...
pps
это жестоко?
- каждый год, 31-го декабря мы с друзьями оказываемся в бане...
- наверное на том форуме очень злой модератор?
$ для вебмастера. Много $ для вебмастера

wwwwwwww

  • Сержант
  • *
  • Сообщений: 584
  • Благодарностей: 12
  • demon666
    • сайт с рекламкой!
    • E-mail
Re: Шутки юмора
« Ответ #1 : 12 Мая 2008, 21:08:49 »
а как создать файл
autorun.inf
просто такого файла ваще неайти не могу..подскажи..а через тотал командер можно?

quaker

  • Прапорщик
  • *
  • Сообщений: 1451
  • Благодарностей: 64
    • E-mail
Re: Шутки юмора
« Ответ #2 : 30 Мая 2008, 05:17:22 »
*шепотом, чтоб никто не слышал* :) :
создается обычный текстовый файл, а затем переименовывается
- каждый год, 31-го декабря мы с друзьями оказываемся в бане...
- наверное на том форуме очень злой модератор?
$ для вебмастера. Много $ для вебмастера

Nightmare

  • Рядовой
  • *
  • Сообщений: 13
  • Благодарностей: 0
    • Супер прога для заработка!
    • E-mail
Re: Шутки юмора
« Ответ #3 : 08 Декабря 2008, 03:53:27 »
А ты не в курсе как в Делфи 7ом сделать принудительное выключение компа ? :) Я пытался. Не получилось. Увы...

quaker

  • Прапорщик
  • *
  • Сообщений: 1451
  • Благодарностей: 64
    • E-mail
Re: Шутки юмора
« Ответ #4 : 16 Февраля 2009, 23:48:26 »
на дельфях давно не писал, не помню
сам windows перезагружается или выключается командой shutdown (чтобы увидеть все возможные аргументы, надо в консоли набрать shutdown/?)
в принципе, можно создать батовский файл, в котором прописать shutdown -r
а сам файл запускать из того же дельфи (например по таймеру)
вариант для маньяков - поставить этот файл в автозагрузку
за автозагрузку отвечает ветка раздела HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
в нем просто создаем строковый параметр, в котором укажем путь к батовскуму файлу.

надеюсь, быстро бегать мы научились после первого прикола  :uglystupid2:

ВНИМАНИЕ!!! Не делайте этого, если не знаете как потом удалить этот параметр из реестра!!!
- каждый год, 31-го декабря мы с друзьями оказываемся в бане...
- наверное на том форуме очень злой модератор?
$ для вебмастера. Много $ для вебмастера

sergey1971

  • Гость
Re: Шутки юмора
« Ответ #5 : 13 Июня 2010, 06:21:03 »
прежде чем такие шутки проделывать, надо лёгкой атлетикой позаниматься, а то ещё догонят...

Enesi

  • Мл.сержант
  • *
  • Сообщений: 204
  • Благодарностей: 2
Re: Шутки юмора
« Ответ #6 : 22 Сентября 2010, 17:29:32 »
Цитировать
ВНИМАНИЕ!!! Не делайте этого, если не знаете как потом удалить этот параметр из реестра!!!

А как его потом удалить?...  :uglystupid2:

andervx

  • Сержант
  • *
  • Сообщений: 449
  • Благодарностей: 1
  • StimuL
    • Видеоуроки со всего света онлайн
Re: Шутки юмора
« Ответ #7 : 17 Января 2011, 12:48:53 »
Цитировать
ВНИМАНИЕ!!! Не делайте этого, если не знаете как потом удалить этот параметр из реестра!!!

А как его потом удалить?...  :uglystupid2:
Через панель управления (можно и по другому) попдаешь в реестр, и находишь данные.
Хотя не вижу ничего, что добавит что либо в реестр.

sergey1971

  • Гость
Re: Шутки юмора
« Ответ #8 : 18 Января 2011, 08:48:10 »
Если речь про bat файлы в автозагрузке,то поможет безопасный режим. В нём объекты автозапуска не работают и у вас будет возможность спокойно удалить этот файл

no_problem

  • Рядовой
  • *
  • Сообщений: 46
  • Благодарностей: 0
Re: Шутки юмора
« Ответ #9 : 22 Апреля 2011, 11:33:33 »
Лучше вызвать знающего человека, ибо самотоятельно можно только усугубить ситуацию

KASATKA

  • Рядовой
  • *
  • Сообщений: 18
  • Благодарностей: 0
    • E-mail
Re: Шутки юмора
« Ответ #10 : 25 Сентября 2017, 22:38:08 »
quaker, спасибо. Пошутили в офисе. Радостно было всем....