模拟微信登录

向右看齐 2022-05-27 14:11 333阅读 0赞

**模拟微信登录**

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();