#!/usr/bin/perl
# hash-bang / she-bang / sh-bang

use strict;
use warnings;
use Log::Log4perl ':easy';
use WWW::Mechanize::Chrome;
use open ':std', ':encoding(UTF-8)';

sub main ()
{
    my $mech;
    my $res;
    my $url;
     my $cookies;

    my $username;
    my $password;
    my $user;
    my $pass;
    my @formlist;

    $user = 'www';
    $pass = 'zzzz';
    $url = "https://www.instagram.com/accounts/login/?source=auth_swit
+cher&hl=en";

    $mech = WWW::Mechanize::Chrome->new(
            launch_exe => 'chromium',
            launch_arg => ["--no-sandbox", "--disable-setuid-sandbox",
+ "--remote-debugging-port=9222", "--headless"],
    );
    $mech->allow( javascript => 1 );

    $mech->get($url);
    if ($mech->success())
    {
        $mech->sleep(1);                                              
+      # waiting for load site
        $mech->form_number(1);

        $mech->value( username => $user );
        $mech->value( password => $pass );

        $mech->eval_in_page(<<'JS');
        var cls = document.getElementsByClassName('_0mzm- sqdOP  L3NKy
+       ');
        Array.prototype.forEach.call(cls, (item) => item.removeAttribu
+te('disabled'));
JS

        $mech->click({intrapage => 1, text => 'Log In', single => 1 })
+;
        $mech->sleep(2);

        print $mech->content;
    }
    else
    {
        print "Not connect to: ".$url."\r\n";
    }
    return 0;
}

main ();

[download]

Now i manually remove disable attribute from button, request send when i click Log in but get me error "The username you entered doesn't belong to an account. Please check your username and try again." when I'm definitely entering the correct data, it looks like he didn't see the login and password completed before sending, this error is probably displayed for an empty login. Anyone have any idea how to log in correctly?

In reply to Re^4: WWW::Mechanize::Chrome Instagram by damian1
in thread WWW::Mechanize::Chrome Instagram by damian1

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.