perl代码:
my $login_url='http://192.168.1.1/getpage.gch?pid=1001&logout=1';
my $res = $ua->post(
$login_url,
{
'Username' => 'useradmin',
'Password' => 'pddgf',
'Frm_Logintoken' => $Logintoken,
},
'User-Agent'=>'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Firefox/45.0',
'Host'=>'192.168.1.1',
'Referer'=>'http://192.168.1.1/getpage.gch?pid=1001&logout=1'
);