0

perl を使用して Web サイトにログインしようとしていますが、それができません。これは私が実際に書いたコードです。

package Vk;

use strict;
use warnings;
use LWPx::ParanoidAgent;
use HTML::TokeParser;
use XML::TokeParser;
use Time::HiRes qw/ usleep /;
use URI::Escape;


my $url = 'https://login.vk.com/?act=login';

sub run
{
my ($class, $conf, $rows) = @_;

print "trying to log in ... \n\n";

my $ua = LWPx::ParanoidAgent->new(
    agent => $conf->{HTTP_USER_AGENT},
    timeout => $conf->{HTTP_TIMEOUT}
    );

my $request = POST($url, 
    {
        'act' => 'login',
        'role' => 'al_frame',
        'expire' => '',
        'captcha_sid' => '',
        'captcha_key' => '',
        '_origin' => 'http://vk.com',
        'ip_h' => '****************',
        'email' => '**********',
        'pass' => '******',
    }
);

print "YOUR ARE LOGGED IN VK ....\n\n\n\n\n\n";

...........

このコードは「Trying to login ...」のみを出力しますが、YOUR ARE LOGGED IN VK ... には到達しません。

ありがとう。

4

2 に答える 2

1

あなたの投稿から、このサイトはキャプチャによって保護されているように見えます。単純な LWP でキャプチャ チェックをバイパスすることはできません。

キャプチャ テストをバイパスするには、OCR またはその他の方法を使用する必要があります。

于 2013-09-18T09:02:42.913 に答える