模拟微信登陆和获取好友信息

模拟微信登陆和获取好友信息：主要实现微信好友列表获取

use LWP::UserAgent;use Net::Ping;use Socket;use Net::SMTP;use LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use HTTP::Response;use Encode;use URI::Escape;use URI::URL;use File::Temp qw/tempfile/;use AE;my $api = 'https://login.weixin.qq.com/jslogin';my $now = time();my @query_string = ( appid => 'wx782c26e4c19acffb', redirect_uri => 'https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage', fun => 'new', lang => 'zh_CN', _ => $now,);my $ua = LWP::UserAgent->new;$ua->timeout(5);$ua->env_proxy;$ua->agent("Mozilla/8.0"); my $cookie_jar = HTTP::Cookies->new( file=>'lwp_cookies.txt', autosave=>1, ignore_discard=>1); $ua->cookie_jar($cookie_jar);$host ="https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=$now";my $response = $ua->get($host);$ua->default_headers;if ( $response->is_success ) { print $response->decoded_content; # or whatever $r = $response->decoded_content; print "\n";}else { die $response->status_line;}print "111111111111111111111111111111111\n";print "\$r is $r\n";print "111111111111111111111111111111111\n";if ( $r =~ /window\.QRLogin\.code = 200; window\.QRLogin\.uuid = "(.*?)"/g ) { $uuid = $1; print "\$uuid is $uuid\n";}my $api = "https://login.weixin.qq.com/qrcode/$uuid";my $response = $ua->get($api);$ua->default_headers;if ( $response->is_success ) { $r = $response->decoded_content; # or whatever $r = $response->decoded_content;print "22222222222222222222222222222\n";print "222222222222222222222222222\n"; print "\n";}else { die $response->status_line;}my ( $fh, $filename ) = tempfile( "weixin_qrcode_XXXX", SUFFIX => ".jpg", DIR => '/tmp' );binmode $fh;print $fh $r;close $fh;print "登录二维码已经下载到本地 [ $filename ] \n";#https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=YaZ1MmzJ3Q==&tip=0&r=-$now&_=1453360034431my $show_tip = 1;sub login { while (1) { my $api ="https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=$uuid&tip=$show_tip&r=-$now&_=$now"; my $response = $ua->get($api); $ua->default_headers; if ( $response->is_success ) { $r = $response->decoded_content;print "3333333333333333333\n";print "\$r is $r\n"; next unless defined $r; my %data = $r =~ /window\.(.+?)=(.+?);/g; if ( $data{code} == 201 ) { print"手机微信扫码成功，请在手机微信上点击 [登录] 按钮...\n"; my $show_tip = 0; next; } elsif ( $data{code} == 200 ) { print "正在进行登录...\n"; foreach ($r) { if ( $_ =~ /window.redirect_uri="(.*?)"/ ) { $api = $1; print "\$api is $api\n"; my $response = $ua->get($api); $ua->default_headers; } }; foreach ($r) { if ( $_ =~ /https\:\/\/wx\.qq\.com\/cgi\-bin\/mmwebwx-bin\/webwxnewloginpage\?ticket=(.*?)&uuid=*/ ) { $ticket = $1; print "\$ticket is $ticket\n"; } }; foreach ($api) { if ( $_ =~ /https\:\/\/wx\.qq\.com\/cgi\-bin\/mmwebwx-bin\/webwxnewloginpage\?ticket=(.*?)\&uuid=(.*?)\&lang=(.*?)\&scan=(.*)/ ) { print "\$1 is $1\n"; print "\$2 is $2\n"; print "\$3 is $3\n"; print "\$4 is $4\n"; $user = $4; print "\$user is $user\n"; return 1; } }; } else { die $response->status_line; } } }};&login();sleep(5);sub get_ticket {my $api="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=$ticket&uuid=$uuid&lang=zh_CN&scan=$user&fun=new&version=v2&lang=zh_CN";my $response = $ua->get($api);$ua->default_headers;if ( $response->is_success ) { print $response->decoded_content; # or whatever$r=$response->decoded_content; if ($r =~/\(.*?)\<\/skey\>\(.*?)\<\/wxsid\>\(.*?)\<\/wxuin\>\(.*?)\<\/pass_ticket.*/)

{

$Skey = $1;

$wxsid=$2;

$wxuin=$3;

$pass_ticket=$4;

print "\$Skey is $Skey\n";

print "\$wxsid is $wxsid\n";

print "\$wxuin is $wxuin\n";

print "\$pass_ticket is $pass_ticket\n";

use POSIX;

my $a = "e";

for(my $b = 0;15 > $b;$b++){

$a .= POSIX::floor(10 * rand());

};

$DeviceID=$a;

}

}};

sub RUN {

print "启动全局事件循环...\n";

AE::cv->recv;

};

sub get_friend {

#my $response= $browser->post("https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit", [ "r" => "-$now","lang" => "zh_CN","pass_ticket"=>"$pass_ticket"]); #多加了

$login_url="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-1816029078&lang=zh_CN&pass_ticket=$pass_ticket";

my $post = {

BaseRequest =>  {

Uin        =>  $wxuin,

Sid        =>  $wxsid,

Skey        =>  $Skey,

DeviceID    =>  $DeviceID,

}

};

use JSON qw(encode_json);

$json_string = encode_json($post);

my $req = HTTP::Request->new('POST' => $login_url,[ 'r'=>"-$now", 'lang'=>'zh_CN', 'pass_ticket'=>"$pass_ticket"]);

$req->referer("https://wx.qq.com/?&lang=zh_CN");

$req->content_type('application/json; charset=UTF-8');#post请求,如果有发送参数，必须要有这句

$req->content("$json_string");#发送post的参数

my $res = $ua->request($req);

print $res->status_line."\n";

print $res->as_string();#获取的是原始内容，包括响应头，响应正文

print $res->content();#获取的是响应正文

print "888888888888888888888\n";

use Data::Dumper;

my $xx= Dumper($res);

print "99999999999999\n";

print $xx;

print "\n"

};

&get_ticket();

sleep(5);

&get_friend();

sleep(5);

&RUN();

微信好友提取