登录网站，并在网络浏览器中打开它

Question

我是新来的perl，我已经开始机械化。

我登录到网站上成功地但在那之后我想在我的 在浏览器窗口中打开网页，它只是打开了网站，而不是在登录后。

#!/usr/bin/perl -w 

use Win32::API; 
use WWW::Mechanize; 
use strict; 
use diagnostics; 
use warnings; 


my $m = WWW::Mechanize->new(
autocheck  => 1, 
onerror   => \&Carp::croak,); 


my $Email = 'username'; 
my $Password = 'password'; 
my $url = 'http://www.gmail.com/'; 
my $response = $m->get($url); 

if (!$response->is_success) { 
    die "Login page unreachable $url: ", $response->status_line, "\n"; 
} 

    $m->submit_form(
     form_number => 1, 
     fields  => { 
         'Username' => $Email, 
         'Password' => $Password, 
         }, 
    ); 

$response = $m->submit(); 

$m->add_header(
    "Connection" => "keep-alive", 
    "Keep-Alive" => "115"); 

#$response = $m->click(); 
if ($response->is_success) { 
    print "Login Successful!\n"; 
} else { 
    die "Login failed: ", $response->status_line, "\n"; 
} 

my $ShellExecute = 
    new Win32::API("shell32", "ShellExecute", [qw(N P P P P N)], 'N'); 

my $GetDesktopWindow = 
    new Win32::API("user32", "GetDesktopWindow", [], 'N'); 

my $hWnd = $GetDesktopWindow->Call(); 


$ShellExecute->Call($hWnd, 'open', $url, '', '', 1); 

Answer 1

哎呀。你不能这样做。 你有没有使用Internet Explorer登录Gmail，然后期望它在Firefox中工作？

...

如果您需要使用浏览器登录，you should probably just get perl to log in with your browser.

如果你真的需要只是机械化做到这一点，then you probably need mechanize to store the same cookies your browser uses.