L_S_V
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Привет, Возник вопросец по логину в форму контакта, не выходит звлогиниться в форму. Просто отвечает что неверный логин или пароль, но все верно. Код: use strict; use LWP::UserAgent; use HTTP::Cookies; use Encode qw(decode encode); use Data::Dumper; #use HTTP::Request::Common qw(GET POST); #use MIME::Base64 qw(encode_base64); my $cookie_jar = HTTP::Cookies->new( file => 'lwp_cookies.txt', autosave => 1, ignore_discard => 1, ); my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 1 }, cookie_jar => $cookie_jar, ); #$ua->timeout(10); $ua->agent('Mozilla/5.0 (Windows NT 10.0; WOW64; rv:51.0) Gecko/20100101 Firefox/51.0'); #my $response = $ua->post('https://vk.com/login', { email => 'email@gmail.com', pass => 'pass' } )->as_string; my $response = $ua->post('https://vk.com/login', #https://login.vk.com/?act=login [ email => 'email@gmail.com', pass => 'pass' ], ); print Dumper($response); if ($response->is_success) { #print $response->decoded_content; print encode("cp866", $response->decoded_content); print "1111\n"; } else { die $response->status_line; } 1; | |