表单身份验证。 NET 网站使用 Perl

Question

我们是 Perl 脚本的新手，我们希望通过 .NET 站点身份验证。 我们有一个现有的特定于 Sharepoint 站点的身份验证代码，代码 sn-p 如下：

my $ua = new LWP::UserAgent('keep_alive' => '1');
print "$url \n";
$ua->credentials("$uname", "$pwd");
my $response =$ua->get($url);
my $cde = $response->code();

我们希望自定义代码，使其适用于特定的 .NET 站点身份验证。我们使用了 WWW::Mechanize，见下面的代码 sn-p：

my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_name('Login');
$mech->field("UserName", $username);
$mech->field("Password", $password);
$mech->click();

但是当程序运行时，显示错误：“sample.pl 中没有名为'Login'的表单”。关于如何验证特定于 .NET 站点的表单的任何想法？

添加：HTML表单代码sn-p...

<div id="loginArea">        
        <div id="loginMessage" class="groupMargin">Sign in with your account</div>
        <form method="post" id="Login" autocomplete="off" novalidate="novalidate" onkeypress="if (event &amp;&amp; event.keyCode
== 13) Login.submitLoginRequest();" action="">
            <div id="formsAuthenticationArea">
                <div id="userNameArea">
                    <input id="userNameInput" name="UserName" type="email" value="" tabindex="1" class="text fullWidth" spellcheck="false" placeholder="Username" autocomplete="off">     
                </div>
                <div id="passwordArea">
                     <input id="passwordInput" name="Password" type="password" tabindex="2" class="text fullWidth" placeholder="Password" autocomplete="off">                            

                </div>
                <div id="kmsiArea" style="display:none">
                    <input type="checkbox" name="Kmsi" id="kmsiInput" value="true" tabindex="3">
                    <label for="kmsiInput">Keep me signed in</label>
                </div>
                <div id="submissionArea" class="submitMargin">
                    <span id="submitButton" class="submit" tabindex="4" onkeypress="if (event &amp;&amp; event.keyCode == 32) Login.submitLoginRequest();" onclick="return Login.submitLoginRequest();">Sign in</span>
                </div>
            </div>
        </form>
    </div>

Answer 1

此代码通常适用于 .NET 网站：

$mech->submit_form(
    with_fields => {
        login => "somelogin",
        pass  => "somepass",
    },
    button => "submit_button_name",
);

但是您收到奇怪的错误消息：您正在选择“登录”表单，但 $mech 正在搜索“登录表单”...您可以显示实际表单的 HTML 吗？

也不需要$mech->cookie_jar(...)，因为$mech默认会这样做。

更新 试试这个代码（Login 是您表单的 id，但不是 name）：

$mech->submit_form(
    with_fields => {
        UserName => "somelogin",
        Password  => "somepass",
    },
);