Как подменить браузер?

Germany.ru → Форумы → Архив Досок→ Вебдизайн и хостинг

1057 просмотров Перейти к просмотру всей ветки

07.03.11 15:20

Re: Как подменить браузер?

voxel3d патриот

в ответ miltorg 07.03.11 14:06, Последний раз изменено 07.03.11 16:40 (voxel3d)

В ответ на:

1. Мой запрос правильный.
2. На него приходит ответ 302 устанавливаются куки и нужно перенаправить запрос на Location=http://www.b....com/skysales/FRSelect.aspx

Да, именно так.
Вот посмотри, урлы порезал, объяснение постом ниже и это ещё не готовое решение, а только шаг к нему:

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Cookies;
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0 (Windows NT 5.1; rv:2.0b12) Gecko/20100101 Firefox/4.0b12');
my $req1 = new HTTP::Request 'GET',' _cut_ Search.aspx';
my $res1 = $ua->request($req1);
$res1->header('Set-Cookie') =~ m/ASP.NET_SessionId=([^;]*)/gi;
my $id = $1;
my $req2 = new HTTP::Request 'POST',' _cut_ Search.aspx';
$req2->header('Content-Type' => 'application/x-www-form-urlencoded',
              'Cookie' => 'ASP.NET_SessionId=$id; acceptTerms=; xtvrn=$384235$;');
$req2->content('__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE= ... _cut_ ...');
my $res2 = $ua->request($req2);
print $res2->as_string;
my $req3 = new HTTP::Request 'GET',' _cut_ FRSelect.aspx';
$req3->header('Cookie' => 'ASP.NET_SessionId=$id; acceptTerms=; xtvrn=$384235$;');
my $res3 = $ua->request($req3);
print $res3->as_string;
exit;

Dropbox - средство синхронизации и бэкапа файлов.

Перейти на