|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перехват URL в браузерах
Все привет!
У меня такая задача ... нужно из запущенного браузера перехватить открывающийся URL-адрес. То есть сайт который я запускаю нужно помести в мою программу, проверить, а затем если всё хорошо продолжить загрузку или отклонить загрузку... Желательно с примером ... а то тяжеловато... Зарание спасибо!!! |
#2
|
||||
|
||||
Цитата:
Снифер тебе в помощь. |
#3
|
|||
|
|||
А можно по подробнее и с примерчиком ... я понимаю что много-го хочу но это оч. надо ...
|
#4
|
|||
|
|||
Неужели никто не поможет ....
|
#5
|
||||
|
||||
Цитата:
Код:
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, WinInet, ExtCtrls, ComCtrls, DDEMan, Registry, WinSock, DateUtils, ShellApi; ... function Get_URL(Servicio: string): string; var Client_DDE: TDDEClientConv; temp: PChar; begin Result:=''; Client_DDE:=TDDEClientConv.Create(nil); with Client_DDE do begin SetLink(Servicio,'WWW_GetWindowInfo'); temp:=RequestData('0xFFFFFFFF'); Result:=StrPas(temp); StrDispose(temp); // предотвращаем утечку памяти CloseLink; end; Client_DDE.Free; end; procedure TForm1.Timer2Timer(Sender: TObject); var names: TListItem; s,urlall,url_op_sk: string; begin try url_ex:=Get_URL('IExplore'); // Internet Explorer url_op:=Get_URL('Opera'); // Opera url_moz:=Get_URL('Firefox'); // Mozilla Firefox // проверка на "about:blank" if pos('about:blank',url_ex)<>0 then Exit; if pos('about:blank',url_op)<>0 then Exit; if pos('about:blank',url_moz)<>0 then Exit; ... |
#6
|
|||
|
|||
Как вариант можно но это не для всех браузеров и оно не всё перехватывает ... через сниффер идея хорошая как говорил Konrad... только как это грамотно оформить ...
|
#7
|
||||
|
||||
Юзать PSApi.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#8
|
|||
|
|||
А можно пример такой программы?!
|
#9
|
||||
|
||||
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#10
|
|||
|
|||
M.A.D.M.A.N. А вы не моглибы составить код для перехвата URL ?!
|
#11
|
|||
|
|||
Нашёл как отслеживать подключение к новым IP по 80 порту, а как заблокировать/подменить сделать так чтобы определённый IP не загружался?!
|
#12
|
||||
|
||||
Цитата:
|
#13
|
|||
|
|||
походе на блокираторы ВКонтакте и т.д. )))
взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |
#14
|
|||
|
|||
Есть список определённых сайтов которые я хочу заблокировать или перенаправлять ... но через файл HOSTS это будет плохо т.к. их количество оч. большое
|
#15
|
||||
|
||||
Цитата:
И для кого это все? Кому будет такое счастье? |