Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2013, 16:11   #1
igrok111
Форумчанин
 
Регистрация: 12.07.2012
Сообщений: 140
По умолчанию Передать реферера(откуда перешли на сайт). Webbrowser и idhttp.get

Я не могу понять, что не так делаю. Мне нужно создать прогу, которая перейдет на мой сайт с реферером в заголовках, который будет виден в статистике, как сайт откуда якобы был переход. Я пытался сделать разными способами(подробнее ниже), но все эти переходы LiveInternet (далие ЛИ) видит как "с закладок".
Делал в делфи 7, Делфи ХЕ и С++ билдер, методом get запроса и с помошью компонента WebBrowser. Методом гет - иногда даже сам переход не засчитуеться(почти всегда), а через веббраузер засичитуеться, но не видно реферера, хоть я его и передаю. Я использовал анализатор трафика(HttpAnalyzer) что б проснифать мои проги, там видно что в headers есть строка Referer - и нужный сайт, но ЛИ не видит етого и пишет - с закладок.
get-запросом
Код:
//Делфи
idhttp1.Request.Referer:='http://sait2.com';
idhttp1.Get('http://sait1.com');
Результат из снифера - реферер есть, страницу загрузило(30 кб) с куки и тд. http://s003.radikal.ru/i203/1304/99/54ea47754e21.png
Код:
//c++
IdHTTP1->Request->Referer= "http://sait2.com";
Form1->IdHTTP1->Get("http://sait1.com");
В url - нету ссылки, видимо ето баг. но страница загрузилась тоже(30 кб), реферер есть. http://s020.radikal.ru/i713/1304/4b/4309e0367f83.png
Такие переходы даже не видны в ЛИ(отсутствуют)
Другое дело Веббраузер, он загружает css, js и тд - от етого просмотры видимо засчитует статистика, но реферера по прежнему не замечает, а пишет - с закладок.
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  Flags, Headers, TargetFrameName, PostData: OLEVariant;
  Url, Ref: string;
  IEApp: OLEVariant;
begin
  Flags := '1';
  TargetFrameName := '';
  PostData := '';
  Url := 'http://sait1.com';
  Ref := 'http://sait2.com/';
  Headers := 'Referer: ' + Ref + #10 + #13;
  Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
end;
http://s019.radikal.ru/i629/1304/b4/d158d0316e21.png
Кажеться буд-то ЛИ умеет отличать поддельного реферера, но это не так. Есть прога для автосерфинга websurf, вы просматриваете сайты в ней, за ето вам идут балы в личный кабинет на сайте, эти балы вы можете тратить на свои сайты, там же есть возможность указать рефереров, которые ЛИ как-раз таки видит. Я снифал ету прогу во время просмотров сайтов. Вот результат: http://s019.radikal.ru/i620/1304/b7/ec6f4471ce8c.png
Реферер всегда в самом низу. Может в етом дело? Как "поставить" его в самый низ? Может проблемы в моем InternetExplorer , какие-то настройки поменять? Может на другом языке писать вообще(асамблер?).Может в веб-браузере стоит поколдовать с событием onBeforeNavigate (типо браузер не идет по ссылке, а не успевает передать реф?). Делал без негоЧто посоветуете?
igrok111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
WebBrowser + IdHttp написние интернет бота ZekaUa Работа с сетью в Delphi 8 04.03.2011 18:23
Вопрос: Авторизация IdHTTP и WebBrowser mental Работа с сетью в Delphi 3 14.02.2011 01:20
Как подделать реферера в Webbrowser? Bright-rider Работа с сетью в Delphi 1 26.12.2010 19:32
WebBrowser и IdHTTP связать КУКИ? alexpro2004 Работа с сетью в Delphi 3 20.11.2009 10:15
idhttp и webbrowser Jakethefish Работа с сетью в Delphi 18 18.11.2009 19:48