WWW ::機械化訪問安全網站

Question

我有一個腳本要嘗試登錄到Oracle EBS頁面，並且我認為這樣做與我相距僅一步之遙（我可能錯了）。 以下是我的腳本，並隨附了我認為答案在哪里的數據部分。

我認為它的提交和提交表格行失敗了。 但是，如果有人看到其他差異，請告訴我。 我確實看到了腳本中用戶名的形式，但沒有密碼。 我確實相信腳本的輸入正確，但是如果我寫錯了，請糾正我。

提前致謝！

use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;
my $outfile = "test";
my $url = "http ://url_address:portnumber /OA_HTML/Login";
my $username = 'johndoe';
my $password = 'johndoe123';
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_id('DefaultFormName');
$mech->field("usernameField", $username);
$mech->field("passwordField", $password);
$mech->submit_form(

form_id => "DefaultFormName",
fields => {
    usernameField => $username,
    passwordField => $password,
    '_FORM_SUBMIT_BUTTON' => "SubmitButtonofEPmL1A",
},
);
my $output_page = $mech->content();
print $output_page;
open(OUTFILE, ">$outfile");
binmode(OUTFILE, ":utf8");`enter code here`
print OUTFILE "$output_page";
close(OUTFILE); 

表格摘要：

"name="usernameField" size="0" type="text" value="johndoe">
< src="/OA_HTML/cabo/images/swan/t.gif" width="5"></td></tr><tr><td colspan="2"></td><td><span class="x2o">
(example: john.doe)</span></td></tr></table></td></tr><tr id="region41" align="left"><td id="region131" valign="top"><span class="x9g">*</span></td>
<td id="region51" valign="top"><span class="x9c">Password</span></td><td id="region61"><table id="passwordField__xc_" border="0" cellspacing="0" cellpadding="0"><tr><td align="right" nowrap></td><td></td>
<td valign="top" nowrap><input id="passwordField" title="Password" class=".LoginText" onchange="" name="passwordField" size="0" type="password">
< src="/OA_HTML/cabo/images/swan/t.gif" width="5"></td></tr><tr><td colspan="2"></td><td><span class="x2o">
(example: A1B2c3D4)</span></td></tr></table></td></tr><tr id="region132" align="left"><td id="region139">
</td><td id="region138"></td><td id="region133">
<button id="SubmitButton" title="Login" class="x7g" style="background-image:url(/OA_HTML/cabo/images/swan/btn-bg1.gif)" 
onclick="submitForm('DefaultFormName',1,{'_FORM_SUBMIT_BUTTON':'SubmitButtonofEPmL1A'});return false" type="submit">Login</button>< id="item11" src="/OA_HTML/cabo/images/swan/t.gif" width="2" height="1">"

Answer 1

WWW :: Mechanize不處理JavaScript。 如果涉及JavaScript（似乎是onclick="submitForm... ），請使用其他模塊（例如WWW :: Mechanize :: Firefox ）。

Answer 2

您不需要以下行（ WWW::Mechanize將自動為您使用Cookie）：

use HTTP::Cookies;
$mech->cookie_jar(HTTP::Cookies->new());

下一步...您確定您的鏈接包含以下文本 ： submitForm嗎？ 可能您需要：

$mech->follow_link( url_regex => qr/submitForm/ );

我建議改為嘗試以下代碼（對於提交部分）：

$mech->submit_form(

    form_id => "DefaultFormName",
    fields => {
        usernameField => $username,
        passwordField => $password,
        '_FORM_SUBMIT_BUTTON' => "SubmitButtonofEPmL1A",
    },
};

更新：另一種方法：您需要使用Firefox的HTTPFox插件之類的工具，並在每次請求后查找將哪些數據發送到目標站點。 接下來，您只需使用$mech發送相同的數據。