use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use JSON;
use File::Temp qw/tempfile/;
use HTML::TreeBuilder::XPath;
use Encode;
use HTML::TreeBuilder;
use Data::Dumper;
use HTML::TreeBuilder::XPath;
use DBI;
use Encode;
use Data::Dumper;
my $ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 0 }, );;
$ua->timeout(5);
$ua->env_proxy;
print $ua->timeout;
my $now = time();
$ua->agent('Mozilla/5.0 (Windows NT 6.1; WOW64; rv:50.0) Gecko/20100101 Firefox/50.0');
print $ua->agent;
print "
";
my $cookie_jar = HTTP::Cookies->new(
file => 'lwp_cookies002.txt',
autosave => 1,
ignore_discard => 1
);
$ua->cookie_jar($cookie_jar);
my $login_url = 'http://10.3.200.9/login/VerifyLogin.jsp';
my $res = $ua->post($login_url,{
'formmethod'=>'post',
'logfile'=>'/wui/theme/ecology8/page/login.jsp?templateId=3&logintype=1&gopage=',
'loginid'=>'xx',
'logintype'=> '1',
'submit'=>'腎翹',
'userpassword'=>'xx'
});
my $response = $ua->get('http://10.3.200.9/tailong/syslink/daohanglianjie.jsp');
if ($response->is_success) {
$r = $response->content;
}else {
&SendSms('http://10.3.200.9/tailong/syslink/daohanglianjie.jsp'."->".$response->status_line);
print 'http://10.3.200.9/tailong/syslink/daohanglianjie.jsp'."->".$response->status_line;
};
sub geturl{
my $url=shift;
print $url."
";
my $response = $ua->get($url);
if ($response->is_success) {
$r = $response->content;
print $r;
print "
";
sleep 3;
if ($r=~/.*?window.open("(.*?)".*/){
$xindai=$1;
print $xindai."
";
};
my $url01='http://20.2.200.17:7003'.$xindai;
print $url01;
print "
";
sleep 2;
my $response= $ua->get($url01);
if ($response->is_success) {
print 'tiao zhuan ye mian'."
";
print $response->header('Date')."
";
print $response->header('Transfer-Encoding')."
";
print $response->header('Content-Type')."
";
print $response->header('Content-Language')."
";
print 'tiao zhuan ye mian'."
";
sleep 3;
}
else
{
print $url01."->".$response->status_line."
";
&SendSms($url01."->".$response->status_line);
};
}
else {
print $url."->".$response->status_line."
";
&SendSms($url."->".$response->status_line);
};
};
sub SendSms {
my $message=shift;
my $token_url= 'http://10.5.100.232:8080/tlcbspt/sendText';
$ua->default_headers;
#$ua->get("http://10.3.172.15:3000/api/SMSsendx?sourceip=$IP&message=$message&phone=18072722237|17605860611|17605860662");
$ua->get("http://10.5.100.232:8001/?message=$message&phone=18072722237");
};
open fh1,">fh1.html" || die "open csdn file failed:$!";
print fh1 $r;
close fh1;
#my $tree= HTML::TreeBuilder::XPath->new;
#$tree->parse_file("fh1.html");
#my @bumen = $tree->findvalues('//div/span');
#foreach (@bumen){
# $_=~s/|//g;
# next if $_=~/^$/;
# print $_;
# print "
";
#};
my $tree= HTML::TreeBuilder::XPath->new;
$tree->parse_file("fh1.html");
my @xitong = $tree->findvalues('//div/a');
foreach (@xitong){
};
##??url
$tree->parse_file( "fh1.html");
#?????`?URL足??a???????href
@Links = $tree->find_by_tag_name('a');
foreach (@Links) {
@Href = $_->attr('href');
$i++;
foreach (@Href){
next unless ($_=~/^http/ or $_=~/^/tailong/);
if ($_=~'http://20.2.200.17:7003/loan-web/4ALogon.jsp'){
print $_;
print "
";
sleep 3;
&geturl($_);
};
};
};