ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TWebBrowser - отправляем липовые заголовки
12 сообщений из 12, страница 1 из 1
TWebBrowser - отправляем липовые заголовки
    #37581582
Фотография prot0type
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prot0type
Участник
В общем тема такая
Вначале я создаю заголовок,а потом перехожу по ссылке

Код: pascal
1.
2.
Headers_x:='User-Agent: Mozilla/5.0 (Windows; compatible; MSIE 7.0; U; Windows NT 6.1; ru; rv:2.9.5.10)';
WebBrowser1.Navigate('http://google.ru/', Flags_x, TargetFrameName_x, PostData_x, Headers_x);



как то так короче, и доволен результатом

но вот допустим я перешел по ссылке а потом стал кликать в самом браузере по ссылкам
естественно загоовок не будет передаваться

как отловить момент клика или перехода по ссылке внутри браузера и добавить заголовок?
...
Рейтинг: 0 / 0
18.12.2011, 10:58:03
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37581782
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
On Sun, 18 Dec 2011 11:58:03 +0400, prot0type <nospam@sql.ru>; wrote:

> Автор: prot0type
> Headers_x:='User-Agent: Mozilla/5.0 (Windows; compatible; MSIE 7.0; U; Windows NT 6.1; ru; rv:2.9.5.10)';
> WebBrowser1.Navigate('http://google.ru/', Flags_x, TargetFrameName_x, PostData_x, Headers_x);
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
uses
   urlmon;
//
const
   UserAgent: String = 'Mozilla/5.0 (Windows; compatible; MSIE 7.0; U; Windows NT 6.1; ru; rv:2.9.5.10)';
//
begin
   UrlMkSetSessionOption(URLMON_OPTION_USERAGENT,
                         PChar(UserAgent),
                         Length(UserAgent),
                         0);
   WebBrowser1.Navigate('http://google.ru/');



--
---
Vladimir A.Bakhvaloff E-Mail:bob<gav>bakh<dot>spb<dot>ru
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
18.12.2011, 15:22:09
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582099
Фотография prot0type
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prot0type
Участник
все бы хорошо, но у меня 2 TWebBrowser

WebBrowser1
WebBrowser2

WebBrowser1 - рандомно меняет заголовки
WebBrowser2 - должен быть постоянный заголовок
...
Рейтинг: 0 / 0
18.12.2011, 21:23:42
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582113
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
On Sun, 18 Dec 2011 22:23:42 +0400, prot0type <nospam@sql.ru>; wrote:

> Автор: prot0type
> WebBrowser1 - рандомно меняет заголовки
> WebBrowser2 - должен быть постоянный заголовок

Перед каждым вызовом WebBrowser1 - выбирать и устанавливать рандомный...
Перед каждым вызовом WebBrowser2 - выбирать и устанавливать постоянный...


--
Vladimir A.Bakhvaloff E-Mail:bob<gav>bakh<dot>spb<dot>ru
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
18.12.2011, 21:44:57
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582130
Фотография prot0type
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prot0type
Участник
zirra спасибо
вот только кода уже столько написал что тяжело будет что либо поменять :(
...
Рейтинг: 0 / 0
18.12.2011, 22:06:33
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582177
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
On Sun, 18 Dec 2011 23:06:33 +0400, prot0type <nospam@sql.ru>; wrote:

> Автор: prot0type
> zirra спасибо
> вот только кода уже столько написал что тяжело будет что либо поменять :(

У тебя нак много Navigate/Navigate2 в коде???

Просто перед каждым из них - вызов указанной функции с указанием нужного агента...

--
Vladimir A.Bakhvaloff E-Mail:bob<gav>bakh<dot>spb<dot>ru
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
18.12.2011, 23:12:13
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582220
Фотография prot0type
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prot0type
Участник
дело в том что например
веббраузер 1 отсылает случайный заголовок агента и еще реффер
а веб браузер2 отсылает постоянный заголовок агента
...
Рейтинг: 0 / 0
19.12.2011, 00:05:37
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582231
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
On Mon, 19 Dec 2011 01:05:37 +0400, prot0type <nospam@sql.ru>; wrote:

> Автор: prot0type
> веббраузер 1 отсылает случайный заголовок агента и еще реффер
> а веб браузер2 отсылает постоянный заголовок агента

Э-э-э... А это сообщение было прочитано?..


--
Vladimir A.Bakhvaloff E-Mail:bob<gav>bakh<dot>spb<dot>ru
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
19.12.2011, 00:20:30
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582237
fd00ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fd00ch
Участник
а если попробовать такой костыль реализовать: в браузере есть событие (не помню уже как оно называется), которое вызывается при каждом запросе. в этом событии надо отменять внутреннее скачивание данных и следом пускать своё, вызовом Navigate. если память не изменяет - такое прокатывало у меня раньше...
...
Рейтинг: 0 / 0
19.12.2011, 00:27:12
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582247
Фотография prot0type
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
prot0type
Участник
да было
я только не понял как к заголовку агента вставить еще заголовок реферера
чтоб было так

Код: pascal
1.
2.
Headers:='User-Agent: Mozilla/5.0 (Windows; compatible; MSIE 7.0; U; Windows NT 6.1; ru; rv:2.9.5.10)'+#13#10+
    'Referer: http://google.ru/';



для одного браузера а для другого без рефера
...
Рейтинг: 0 / 0
19.12.2011, 00:37:35
| Ответить | Цитировать | Написать  
TWebBrowser - отправляем липовые заголовки
    #37582270
Фотография zirra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zirra
Участник
On Mon, 19 Dec 2011 01:37:35 +0400, prot0type <nospam@sql.ru>; wrote:

> Автор: prot0type
> я только не понял как к заголовку агента вставить еще заголовок реферера
> чтоб было так
> для одного браузера а для другого без рефера

Сократить хедеры только до рефферера, т.к. юзерагент передаётся уже независимо от этого...

--
Vladimir A.Bakhvaloff E-Mail:bob<gav>bakh<dot>spb<dot>ru
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
19.12.2011, 01:04:20
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
TWebBrowser - отправляем липовые заголовки
    #39477083
swntfz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
swntfz
Гость
Всё это не работает, во всяком случае у меня не работало на delphi xe8 и windows 7. Долго искал решение, и нашёл.
Решил выложить свой рабочий метод, может сохраню чужие нервы и время:
Здесь почти готовое решение, всё делать как там:
https://theroadtodelphi.com/2011/03/11/changing-the-ua-user-agent-of-a-twebbrowser-component/

Только использование, не просто:
Код: pascal
1.
2.
WebBrowser1.UserAgent:='Mozilla/5.0 (iPhone; U; CPU like Mac OS X; en) AppleWebKit/420+ (KHTML, like Gecko) Version/3.0 Mobile/1A543a Safari/419.3';
WebBrowser1.Navigate(EditURL.Text);


А:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
var
Headers_x,Flags_x,TargetFrameName_x,PostData_x:OLEVariant;
Referer,UserAgents:String;
begin
Flags_x:= '1';
TargetFrameName_x:= '';
PostData_x:= '';

Referer:= 'Referer: https://www.google.ru/#newwindow=1&q=Поисковый запрос';
UserAgents:= 'User-Agent: Mozilla/5.0 (Windows NT 5.1; WOW32; rv:14.0) Gecko/20100101 Firefox/14.0';
Headers_x:= Referer + #10 + #13 + UserAgent;
WebBrowser1.UserAgent:='Mozilla/5.0 (Windows NT 5.1; WOW32; rv:14.0) Gecko/20100101 Firefox/14.0';
WebBrowser1.Navigate(EditURL.Text, Flags_x, TargetFrameName_x, PostData_x, Headers_x);



Ещё на всякий случай:
-в классе должно быть как по ссылке, буддте внимательны: SHDocVw.TWebbrowser, IDispatch
-в uses: UrlMon

И всё. У меня работает, можно далее переходить по любым ссылкам.
...
Рейтинг: 0 / 0
24.06.2017, 11:32:19
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TWebBrowser - отправляем липовые заголовки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=37582270&tid=2042101]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 178ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 199ms
total:  459ms
созд. / загр.: 459ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]