Форма отправки в Perl

Я на самом деле пытаюсь изучить Perl-код, и у меня возникли некоторые проблемы с моим последним кодом с Mechanize. Я просто хочу создать бота для входа на мой любимый сайт. Я уже сделал это с Priceminister и facebook, но я заблокирован с помощью spotify.

CMD верните мне:

There is no form with the requested fields at C:/Perl64/lib/WWW/Mechanize.pm line 1001.

Но в исходном коде страницы есть форма. (на веб-странице есть капча, это проблема?)

мой код:

use Browser::Open qw( open_browser );
use WWW::Mechanize;
use HTTP::Cookies;
use Time::HiRes;
use strict;
use warnings;

system('cls');

my $cookies= 'cookies.txt'; #your cookies file path here
my $Mail = '<MyMail>';
my $password = '<MyPassword>';
my $mech = WWW::Mechanize->new( cookie_jar => HTTP::Cookies::Netscape->new( file => $cookies ) );

$mech->agent_alias( 'Windows Mozilla' );

my $ftp = "https://accounts.spotify.com/fr-FR/login?continue=https:%2F%2Fwww.spotify.com%2Ffr%2Faccount%2Foverview%2F";

$mech->get ($ftp);

print "\n";
print "\n";
print "\n";
print $mech->uri, "\n", "\n";
print $mech->forms, "\n", "\n";
print "\n";
print "\n";
print "\n";

$mech->submit_form(
    with_fields => {
        username => $Mail,
        password => $password
    }
);

print $mech->uri, "\n", "\n";

0 ответов

Другие вопросы по тегам