VPF::логин в aspx (ASP.NET) - Форум программистов

od0201

Дата 11.5.2015, 15:31 (ссылка)

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

Загрузка ...

Шустрый

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

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

Доброе время суток

Пытаюсь логиниться в ASP.NET при помощи LWP::UserAgent
-post не принимает, поэтому использую get (есть человек который утверждает что у него получилось sql.ru/forum/804418/perl-i-aspx он мне код часть кода даже выслал)
-просмотрел снифером что передает браузер и делаю также.
-кукисы подключил
в ответ 400 ошибка.
В скрипты правда не лез.
В рунете информации об этом очень мало. А с буржуйскими я не очень дружу.
Мне кажется, что нужно использовать другой модуль.
Кто сталкивался с такой проблемой, помогите.

od0201

Дата 11.5.2015, 21:04 (ссылка)

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

Загрузка ...

Шустрый

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

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

проблема была решена при помощи модуля WWW::Mechanize

Код

    use WWW::Mechanize;
    use HTTP::Cookies;
    my $cookies = new HTTP::Cookies (file => "../tmp/cookies", autosave => 1, ignore_discard => 1);
    my $mech = WWW::Mechanize->new();
    $mech->agent($ENV{HTTP_USER_AGENT});
    $mech->cookie_jar($cookies); 
    $url="http://XXXXXX/data.aspx";
    my $resp = $mech->get($url);
    $content=$resp->decoded_content;

    if($content=~/Password:/){  # логинимся, если мы еще не зашли
        print "login<br>";
        $mech->form_name('myForm');
        $mech->field('ctl00$ContentHolder1$Login' => "111111");
        $mech->field('ctl00$ContentHolder1$PWD' => "222222");
        $mech->click();
        my $resp = $mech->get($url);
        $content=$resp->decoded_content;
    }

Это сообщение отредактировал(а) od0201 - 11.5.2015, 21:11

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