VPF::Referrer в WebBrowser - Форум программистов

ProgramerForever

Дата 29.3.2008, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Добрый вечер! Скажите, пожалуйста, как мне имитировать переход с какой-то определённой страницы (т.е. подменять поле referrer в броузере)?

ProgramerForever

Дата 8.5.2008, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

На сайте Королевство Дельфи нашёл пример:

Код


  Dummy:=NULL;
  Headers:='Referrer: http://test.com'#13#10;
  WebBrowser.Navigate('http://test.com/tst.htm',Dummy,Dummy,Dummy,Headers);

Пробовал - не работает. Страничка определяет как закладки или не определяет вовсе, откуда был переход.

Akina

Дата 8.5.2008, 23:08 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата

The WebBrowser control fires a number of different events to notify an application of user—and browser—generated activity. When the browser is about to navigate to a new location, it triggers a BeforeNavigate2 event that specifies the URL or path of the new location and any other data that will be transmitted to the Internet server through the http transaction. The data can include the http header, http post data, and the URL of the referrer. The BeforeNavigate2 event also includes a flag that can be set to cancel the pending navigation request. This event can be useful for checking the requested URL against a database of unauthorized World Wide Web sites or local and network folders, and for canceling the navigation request. The WebBrowser control fires the NavigateComplete2 event after it has navigated to a new location. This event includes the same information as BeforeNavigate2, except NavigateComplete2 does not include the cancel flag.

Код


Private Sub WebBrowser_BeforeNavigate2(ByVal URL As String, _
                                       ByVal Flags As Long, _
                                       ByVal TargetFrameName As String, _
                                       PostData As Variant, _
                                       ByVal Headers As String, _
                                       Cancel As Boolean)

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

ProgramerForever

Дата 14.9.2008, 10:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Подскажите, где можно потестировать код, нужен какой-нибудь сайт, отбражающий заголовки..

Добавлено через 9 минут и 49 секунд
Пробую такой код:

Код


    URL = "http://infrared.ucoz.ru"
    Flags = 0
    TargetFrame = ""
    PostData = ""
    PostData = StrConv(PostData, vbFromUnicode)
    Headers = "Content-Type: text/html" & vbCrLf & "Referrer: http://www.microsoft.com/ru/ru/default.aspx" & vbCrLf
    
    WB.Navigate2 URL, Flags, TargetFrame, PostData, Headers

Определяет как будто я открыл с Закладок, т.е. то-то не так..

ProgramerForever

Дата 16.10.2008, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Попробовал такой код на Денвере:

Код


<?php echo '='.$_SESSION['referrer'].'='?>

Выдаёт

Код


Notice: Undefined variable: _SESSION in l:\home\www.ref.ru\www\index.php on line 1
==

Akina

Дата 16.10.2008, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(ProgramerForever @ 14.9.2008, 11:56

)

нужен какой-нибудь сайт, отбражающий заголовки

Зачем сайт? поставьте себе ieHttpHeaders и смотрите заголовки прямо в браузере.

--------------------

ProgramerForever

Дата 16.10.2008, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Делаю так:

Код


URL = "http://www.ref.ru/"
    Flags = 0
    TargetFrame = ""
    PostData = ""
    PostData = StrConv(PostData, vbFromUnicode)
    Headers = "Content-Type: text/html" & vbCrLf & _
    "connection:keep-alive" & vbCrLf & _
    "Referer: http://infrared.ucoz.ru/" & vbCrLf & _
    "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
    
    WB.Navigate2 URL, Flags, TargetFrame, PostData, Headers

На сайт

Код


<?php echo '='.$_SESSION['referrer'].'='?>

В чём ошибка?

Akina

Дата 16.10.2008, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Задайте этот вопрос в форуме по РНР, скопировав туда 2 своих последних постинга. А еще лучше - сначала хотя бы почитайте что-нибудь про глобальные и сессионные переменные и настройку сервера. Чтобы понимать, за что вас будут ругать.

--------------------

ProgramerForever

Дата 16.10.2008, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 554
Регистрация: 15.11.2006
Где: Новосибирск

Репутация: 2
Всего: 5

Мне надо всего лишь сделать, чтобы если я смотрел сайты через мою программу, то сайты думали, что я пришёл с сайта, который я выбираю сам. (например, с microsoft.com )) )

DeMONiZ

Дата 2.1.2009, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 92
Регистрация: 2.1.2009
Где: Первоуральск

Репутация: нет
Всего: нет

кстати да ProgramerForever ты разобрался как передавать рефера меня этот вопрос тоже очень интересует!??

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »