perl 自动登陆网站发短信

来源：互联网发布：java 接口变量编辑：程序博客网时间：2024/04/30 09:29
use  LWP::UserAgent;use HTTP::Date qw(time2iso str2time time2iso time2isoz);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 URI::Escape;  use File::Temp qw/tempfile/;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);#$var='https://licai.yingyinglicai.com/index.htm';my $response = $ua->get("http://121.52.220.246:8888/code.aspx");if ($response->is_success) {  $r = $response->decoded_content;   # print $response->decoded_content;  # or whatever}else { die $response->status_line;};my ( $fh, $filename ) =  tempfile( "sms_qrcode_XXXX", SUFFIX => ".jpg", DIR => 'c:\\' );binmode $fh;print $fh $r;close $fh;my $code=encode("gbk",decode("utf8",'请输入验证码'));print "$code.[ $filename ] \n";system("start $filename ");my $validCode = <STDIN>;chomp $validCode ;print "\$validCode is $validCode\n"; my $login_url = 'http://121.52.220.246:8888/chklogin.aspx';                 my $res = $ua->post($login_url,{                       'account'=>'sc10624',                          'action'=>'login',  'code'=>$validCode,                          'password'=>'xx'                                                                    });       my $content = $res->content();                   print $res->status_line . "\n";            print "11111111111111111111\n";            print $res->as_string();                print "11111111111111111111\n";                 my $Sign=uri_escape('【中均】');#http://121.52.220.246:8888/checkkeyword.aspx?action=add       my $str=(rand(1));   my $login_url = 'http://121.52.220.246:8888/checkkeyword.aspx?action=add';   my $res = $ua->post($login_url,{                       'content'=>uri_escape('ABCDEFG'),                          'keySign'=>"$str"                                                });print encode("gbk",decode("utf8",$res->as_string())); my $login_url = 'http://121.52.220.246:8888/submitsms.aspx';#%E3%80%90%E4%B8%AD%E5%9D%87%E3%80%91                       my $res = $ua->post($login_url,{                          'mobile'=>18072xx,  'mobilenumber'=>1,  'telephonenumber'=>0,                          'iscall'=>1,   'msgcontent'=>uri_escape('ABCDEFG'),  'checkcontent'=>1,  'countnumber'=>1, 'usign'=>'【中均】',  'useUserSign'=>1,  'forceID'=>'undefined'},  'User-Agent'=>'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Firefox/45.0',                'Host'=>'121.52.220.246:8888',                'Referer'=>'http://121.52.220.246:8888/send.aspx','X-Requested-With'=>'XMLHttpRequest'                                                                          );            my $content = $res->content();            print  encode("gbk",decode("utf8",$content));            print $res->status_line . "\n";                        print encode("gbk",decode("utf8",$res->as_string()));
0 0