的表单验证。 使用Perl的NET网站

Question

我们是Perl脚本的新手，我们希望通过.NET站点身份验证。 我们已有一个特定于Sharepoint网站的身份验证代码，下面的代码片段：

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，请参见下面的代码段：

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表单代码段...

<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搜索“ loginForm” ...您可以显示实际表单的HTML吗？

此外，也不需要执行$mech->cookie_jar(...)因为$mech默认情况下会执行此操作。

更新尝试以下代码（ Login是您表单的id ，但不是name ）：

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