模拟微信登录

use  LWP::UserAgent;  
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(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
$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 "\$r is $r\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 "\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=-1661116850&_=1453360034431



       my $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=-1661116850&_=$now";
my $response = $ua->get($api);
  $ua->default_headers;
if ($response->is_success) {
$r=$response->decoded_content;
print "222222222222222222222222\n";
print "\$r is $r\n";
print "3333333333333333333333333333333\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="(.*?)"/){
       my $api=$1;
       print "\$api is $api\n";
     my $response = $ua->get($api);
  $ua->default_headers;
       return 1;
         }}}
else {
 die $response->status_line;
};

} }
};
&login();
sleep(5);
sub RUN{
    print "启动全局事件循环...\n";
    AE::cv->recv;
}
&RUN();

你可能感兴趣的:(perl,WeixinClient)