Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.03.2013, 10:38
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию Первоапрельская шутка

Доброго времени суток, форумчане!

Как ведущий-инженер-шутник с группой инициативных товарищей начал создание приколов к 1 апреля.

Первый прикол до безобразия прост и безобиден. При открытии определенного сайта должна появляться табличка, что сайт взломан хакерами (или заблокирован силовыми структурами, скажем C.I.A.).

На данный момент всё реализовано криво:
- мониторятся огнелисы;
- по URL определяется "нужный" ли сайт открыт;
- если нужный, то поверх огнелиса рисуется форма с bsNone и fsStayOnTop (банально скрываем контекст сайта).

Сейчас рассматриваем более изящный вариант: при загрузке "нужного" сайта производится переход на левую страницу (заблаговременно сохраненную на HDD), а в адресной строке прописать URL сайта.

Вопрос следующий - как добраться до адресной строки огнелиса? Полагаю что через handl-ы, но в них не особо силен. или есть другие варианты?
Ответить с цитированием
  #2  
Старый 07.03.2013, 11:04
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

За такие шутки можно в жбан получить.

В интернет выходят через прокси? Проще прокси подкрутить, сделать редирект на нужную страницу, и не надо отслеживать адресную строку на машине.
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию

Последний раз редактировалось M.A.D.M.A.N., 07.03.2013 в 11:12.
Ответить с цитированием
  #3  
Старый 07.03.2013, 12:09
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию

Цитата:
Сообщение от M.A.D.M.A.N.
За такие шутки можно в жбан получить.
Начальник не против Даже пожелал поучаствовать в этом мероприятии, так что, будем надеяться, не получу.

Цитата:
Сообщение от M.A.D.M.A.N.
В интернет выходят через прокси? Проще прокси подкрутить, сделать редирект на нужную страницу, и не надо отслеживать адресную строку на машине.

Как бы подкручивать не хорошо - за это точно получу. Мы планировали сделать немного другое. Допустим:
- открыли огнелиса, забили в адресной строке www.google.ru,
- тыкнули enter, перешли на www.google.ru,
- забили в адресной строке www.delphisources.ru, enter не тыкаем.

Получается сидим на сайте гугла, но в адресной строке забито ДС.

В этом свете заинтересовало как обращаться к адресной строке огнелиса через хэндлы. Для ИЕ видел пару примеров, а для огнелиса пока не могу найти.
Ответить с цитированием
  #4  
Старый 07.03.2013, 12:24
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

можно попробовать написать расширение для firefox, которое добавит на тот сайт порнобаннеров например,
а так можно winspy узнать как добраться до строки адреса, а там что угодно с ней делать, тогда нужны примеры FindWindow(Ex) или Enum(Child)Windows
__________________
>woweook<

Последний раз редактировалось Pyro, 07.03.2013 в 12:27.
Ответить с цитированием
  #5  
Старый 07.03.2013, 12:37
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию

Цитата:
Сообщение от Pyro
можно попробовать написать расширение для firefox, которое добавит на тот сайт порнобаннеров

Порнобаннер??? Фу - мерзость какая. Пошло и неизящно.

Цитата:
Сообщение от Pyro
можно winspy узнать как добраться до строки адреса, а там что угодно с ней делать, тогда нужны примеры FindWindow(Ex) или Enum(Child)Windows

А можно поподробнее? Как раз в сторону FindWindow копал. Накопал пока немного про MozillaDropShadowWindowClass. Но на этом пока всё закончилось.
Ответить с цитированием
  #6  
Старый 07.03.2013, 12:44
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

Цитата:
Пошло и неизящно.
да, зависит от целевой аудитории

тут надо запускать упомянутую прогу, в интернете искать бессмысленно
__________________
>woweook<

Последний раз редактировалось Pyro, 07.03.2013 в 12:52.
Ответить с цитированием
Этот пользователь сказал Спасибо Pyro за это полезное сообщение:
U.B.M. (07.03.2013)
  #7  
Старый 07.03.2013, 13:07
U.B.M. U.B.M. вне форума
Новичок
 
Регистрация: 06.10.2011
Сообщения: 94
Версия Delphi: Delphi 7
Репутация: 13
По умолчанию

Цитата:
Сообщение от Pyro
в интернете искать бессмысленно

а почему если не секрет?
Ответить с цитированием
  #8  
Старый 07.03.2013, 13:18
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

сам не знаю, я так делал,
а сейчас ради интереса набрал autoit firefox url, по первой ссылке ctr+l - переход в адресную строку,
хотя есть шанс что через findwindow это будет незаметнее, но может быть и много всяких сложностей, или вобще не будет работать
__________________
>woweook<
Ответить с цитированием
  #9  
Старый 07.03.2013, 14:10
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Смех

пичалька. если у меня IE 10, то я не увижу шутки...
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter