perl 自动登陆网站发短信

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