|
|
Регистрация | << Правила форума >> | 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... только как это грамотно оформить ...
|